unit UFrmGerenciamento;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, RXSwitch, Psock, NMMSG, ComCtrls, Mask, TimerLst,
  jpeg, dxCore, dxButton, RXCtrls, ToolEdit, RxLookup, DBCtrls, Animate,
  GIFCtrl, lmdctrl, Lmdled, Menus, XP_PopUpMenu, UFramessage, lmdstdcS,
  lmdextcS;

type
  TFrmgerenciamento = class(TForm)
    RxTimerList1: TRxTimerList;
    tiMicro1: TRxTimerEvent;
    tiMicro2: TRxTimerEvent;
    tiMicro3: TRxTimerEvent;
    tiMicro4: TRxTimerEvent;
    tiMicro5: TRxTimerEvent;
    tiMicro6: TRxTimerEvent;
    tiMicro7: TRxTimerEvent;
    tiMicro8: TRxTimerEvent;
    tiMicro9: TRxTimerEvent;
    tiMicro10: TRxTimerEvent;
    MsgClient1: TNMMsg;
    MsgClient10: TNMMsg;
    MsgClient2: TNMMsg;
    MsgClient3: TNMMsg;
    MsgClient4: TNMMsg;
    MsgClient5: TNMMsg;
    MsgClient6: TNMMsg;
    MsgClient7: TNMMsg;
    MsgClient8: TNMMsg;
    MsgClient9: TNMMsg;
    btnmini: TdxButton;
    btnfechar: TdxButton;
    server: TNMMSGServ;
    Panel22: TPanel;
    pnlpc1: TPanel;
    off1: TLabel;
    on1: TLabel;
    lblpc1: TLabel;
    lblip1: TLabel;
    lblnome1: TLabel;
    RxSwitch1: TRxSwitch;
    setabaixo1: TdxButton;
    pnlpc3: TPanel;
    off3: TLabel;
    on3: TLabel;
    lblpc3: TLabel;
    lblip3: TLabel;
    lblnome3: TLabel;
    RxSwitch3: TRxSwitch;
    setabaixo3: TdxButton;
    detais3: TPanel;
    Label25: TLabel;
    Label26: TLabel;
    lbltotalmicro3: TLabel;
    lbltempomicro3: TLMDLEDLabel;
    setacima3: TdxButton;
    MaskEdit3: TMaskEdit;
    pnlpc2: TPanel;
    off2: TLabel;
    on2: TLabel;
    lblpc2: TLabel;
    lblip2: TLabel;
    lblnome2: TLabel;
    RxSwitch2: TRxSwitch;
    setabaixo2: TdxButton;
    detais2: TPanel;
    Label36: TLabel;
    Label37: TLabel;
    lbltotalmicro2: TLabel;
    lbltempomicro2: TLMDLEDLabel;
    setacima2: TdxButton;
    MaskEdit2: TMaskEdit;
    pnlpc5: TPanel;
    off5: TLabel;
    on5: TLabel;
    lblpc5: TLabel;
    lblip5: TLabel;
    lblnome5: TLabel;
    RxSwitch5: TRxSwitch;
    setabaixo5: TdxButton;
    detais5: TPanel;
    Label44: TLabel;
    Label45: TLabel;
    lbltotalmicro5: TLabel;
    lbltempomicro5: TLMDLEDLabel;
    setacima5: TdxButton;
    MaskEdit5: TMaskEdit;
    pnlpc4: TPanel;
    off4: TLabel;
    on4: TLabel;
    lblpc4: TLabel;
    lblip4: TLabel;
    lblnome4: TLabel;
    RxSwitch4: TRxSwitch;
    setabaixo4: TdxButton;
    detais4: TPanel;
    Label52: TLabel;
    Label53: TLabel;
    lbltotalmicro4: TLabel;
    lbltempomicro4: TLMDLEDLabel;
    setacima4: TdxButton;
    MaskEdit4: TMaskEdit;
    pnlpc7: TPanel;
    off7: TLabel;
    on7: TLabel;
    lblpc7: TLabel;
    lblip7: TLabel;
    lblnome7: TLabel;
    RxSwitch7: TRxSwitch;
    setabaixo7: TdxButton;
    detais7: TPanel;
    Label68: TLabel;
    Label69: TLabel;
    lbltotalmicro7: TLabel;
    lbltempomicro7: TLMDLEDLabel;
    setacima7: TdxButton;
    MaskEdit7: TMaskEdit;
    pnlpc8: TPanel;
    off8: TLabel;
    on8: TLabel;
    lblpc8: TLabel;
    lblip8: TLabel;
    lblnome8: TLabel;
    RxSwitch8: TRxSwitch;
    setabaixo8: TdxButton;
    detais8: TPanel;
    Label76: TLabel;
    Label77: TLabel;
    lbltotalmicro8: TLabel;
    lbltempomicro8: TLMDLEDLabel;
    setacima8: TdxButton;
    MaskEdit8: TMaskEdit;
    pnlpc9: TPanel;
    off9: TLabel;
    on9: TLabel;
    lblpc9: TLabel;
    lblip9: TLabel;
    lblnome9: TLabel;
    RxSwitch9: TRxSwitch;
    setabaixo9: TdxButton;
    detais9: TPanel;
    Label84: TLabel;
    Label85: TLabel;
    lbltotalmicro9: TLabel;
    lbltempomicro9: TLMDLEDLabel;
    setacima9: TdxButton;
    MaskEdit9: TMaskEdit;
    pnlpc10: TPanel;
    off10: TLabel;
    on10: TLabel;
    lblpc10: TLabel;
    lblip10: TLabel;
    lblnome10: TLabel;
    RxSwitch10: TRxSwitch;
    setabaixo10: TdxButton;
    detais10: TPanel;
    Label92: TLabel;
    Label93: TLabel;
    lbltotalmicro10: TLabel;
    lbltempomicro10: TLMDLEDLabel;
    setacima10: TdxButton;
    MaskEdit10: TMaskEdit;
    pnlpc12: TPanel;
    off12: TLabel;
    on12: TLabel;
    lblpc12: TLabel;
    lblip12: TLabel;
    lblnome12: TLabel;
    RxSwitch12: TRxSwitch;
    setabaixo12: TdxButton;
    detais12: TPanel;
    Label108: TLabel;
    Label109: TLabel;
    lbltotalmicro12: TLabel;
    lbltempomicro12: TLMDLEDLabel;
    setacima12: TdxButton;
    MaskEdit12: TMaskEdit;
    pnlpc13: TPanel;
    off13: TLabel;
    on13: TLabel;
    lblpc13: TLabel;
    lblip13: TLabel;
    lblnome13: TLabel;
    RxSwitch13: TRxSwitch;
    setabaixo13: TdxButton;
    detais13: TPanel;
    Label116: TLabel;
    Label117: TLabel;
    lbltotalmicro13: TLabel;
    lbltempomicro13: TLMDLEDLabel;
    setacima13: TdxButton;
    MaskEdit13: TMaskEdit;
    pnlpc14: TPanel;
    off14: TLabel;
    on14: TLabel;
    lblpc14: TLabel;
    lblip14: TLabel;
    lblnome14: TLabel;
    RxSwitch14: TRxSwitch;
    setabaixo14: TdxButton;
    detais14: TPanel;
    Label124: TLabel;
    Label125: TLabel;
    lbltotalmicro14: TLabel;
    lbltempomicro14: TLMDLEDLabel;
    setacima14: TdxButton;
    MaskEdit14: TMaskEdit;
    pnlpc15: TPanel;
    off15: TLabel;
    on15: TLabel;
    lblpc15: TLabel;
    lblip15: TLabel;
    lblnome15: TLabel;
    RxSwitch15: TRxSwitch;
    setabaixo15: TdxButton;
    detais15: TPanel;
    Label132: TLabel;
    Label133: TLabel;
    lbltotalmicro15: TLabel;
    lbltempomicro15: TLMDLEDLabel;
    setacima15: TdxButton;
    MaskEdit15: TMaskEdit;
    pnlpc16: TPanel;
    off16: TLabel;
    on16: TLabel;
    lblpc16: TLabel;
    lblip16: TLabel;
    lblnome16: TLabel;
    RxSwitch16: TRxSwitch;
    setabaixo16: TdxButton;
    detais16: TPanel;
    Label140: TLabel;
    Label141: TLabel;
    lbltotalmicro16: TLabel;
    lbltempomicro16: TLMDLEDLabel;
    setacima16: TdxButton;
    MaskEdit16: TMaskEdit;
    pnlpc17: TPanel;
    off17: TLabel;
    on17: TLabel;
    lblpc17: TLabel;
    lblip17: TLabel;
    lblnome17: TLabel;
    RxSwitch17: TRxSwitch;
    setabaixo17: TdxButton;
    detais17: TPanel;
    Label148: TLabel;
    Label149: TLabel;
    lbltotalmicro17: TLabel;
    lbltempomicro17: TLMDLEDLabel;
    setacima17: TdxButton;
    MaskEdit17: TMaskEdit;
    pnlpc18: TPanel;
    off18: TLabel;
    on18: TLabel;
    lblpc18: TLabel;
    lblip18: TLabel;
    lblnome18: TLabel;
    RxSwitch18: TRxSwitch;
    setabaixo18: TdxButton;
    detais18: TPanel;
    Label156: TLabel;
    Label157: TLabel;
    lbltotalmicro18: TLabel;
    lbltempomicro18: TLMDLEDLabel;
    setacima18: TdxButton;
    MaskEdit18: TMaskEdit;
    pnlpc19: TPanel;
    off19: TLabel;
    on19: TLabel;
    lblpc19: TLabel;
    lblip19: TLabel;
    lblnome19: TLabel;
    RxSwitch19: TRxSwitch;
    setabaixo19: TdxButton;
    detais19: TPanel;
    Label164: TLabel;
    Label165: TLabel;
    lbltotalmicro19: TLabel;
    lbltempomicro19: TLMDLEDLabel;
    setacima19: TdxButton;
    MaskEdit19: TMaskEdit;
    pnlpc20: TPanel;
    off20: TLabel;
    on20: TLabel;
    lblpc20: TLabel;
    lblip20: TLabel;
    lblnome20: TLabel;
    RxSwitch20: TRxSwitch;
    setabaixo20: TdxButton;
    detais20: TPanel;
    Label172: TLabel;
    Label173: TLabel;
    lbltotalmicro20: TLabel;
    lbltempomicro20: TLMDLEDLabel;
    setacima20: TdxButton;
    MaskEdit20: TMaskEdit;
    pnlpc21: TPanel;
    off21: TLabel;
    on21: TLabel;
    lblpc21: TLabel;
    lblip21: TLabel;
    lblnome21: TLabel;
    RxSwitch21: TRxSwitch;
    setabaixo21: TdxButton;
    detais21: TPanel;
    Label180: TLabel;
    Label181: TLabel;
    lbltotalmicro21: TLabel;
    lbltempomicro21: TLMDLEDLabel;
    setacima21: TdxButton;
    MaskEdit21: TMaskEdit;
    pnlpc22: TPanel;
    off22: TLabel;
    on22: TLabel;
    lblpc22: TLabel;
    lblip22: TLabel;
    lblnome22: TLabel;
    RxSwitch22: TRxSwitch;
    setabaixo22: TdxButton;
    detais22: TPanel;
    Label188: TLabel;
    Label189: TLabel;
    lbltotalmicro22: TLabel;
    lbltempomicro22: TLMDLEDLabel;
    setacima22: TdxButton;
    MaskEdit22: TMaskEdit;
    pnlpc23: TPanel;
    off23: TLabel;
    on23: TLabel;
    lblpc23: TLabel;
    lblip23: TLabel;
    lblnome23: TLabel;
    RxSwitch23: TRxSwitch;
    setabaixo23: TdxButton;
    detais23: TPanel;
    Label196: TLabel;
    Label197: TLabel;
    lbltotalmicro23: TLabel;
    lbltempomicro23: TLMDLEDLabel;
    setacima23: TdxButton;
    MaskEdit23: TMaskEdit;
    pnlpc24: TPanel;
    off24: TLabel;
    on24: TLabel;
    lblpc24: TLabel;
    lblip24: TLabel;
    lblnome24: TLabel;
    RxSwitch24: TRxSwitch;
    setabaixo24: TdxButton;
    detais24: TPanel;
    Label204: TLabel;
    Label205: TLabel;
    lbltotalmicro24: TLabel;
    lbltempomicro24: TLMDLEDLabel;
    setacima24: TdxButton;
    MaskEdit24: TMaskEdit;
    pnlpc11: TPanel;
    off11: TLabel;
    on11: TLabel;
    lblpc11: TLabel;
    lblip11: TLabel;
    lblnome11: TLabel;
    RxSwitch11: TRxSwitch;
    setabaixo11: TdxButton;
    detais11: TPanel;
    Label100: TLabel;
    Label101: TLabel;
    lbltotalmicro11: TLabel;
    lbltempomicro11: TLMDLEDLabel;
    setacima11: TdxButton;
    MaskEdit11: TMaskEdit;
    lblcod1: TLabel;
    lblcod2: TLabel;
    lblcod3: TLabel;
    lblcod4: TLabel;
    lblcod5: TLabel;
    lblcod7: TLabel;
    lblcod8: TLabel;
    lblcod9: TLabel;
    lblcod10: TLabel;
    lblcod11: TLabel;
    lblcod12: TLabel;
    lblcod13: TLabel;
    lblcod14: TLabel;
    lblcod15: TLabel;
    lblcod16: TLabel;
    lblcod17: TLabel;
    lblcod18: TLabel;
    lblcod19: TLabel;
    lblcod20: TLabel;
    lblcod21: TLabel;
    lblcod22: TLabel;
    lblcod23: TLabel;
    lblcod24: TLabel;
    pop1: TtfXPPopUpMenu;
    pop2: TtfXPPopUpMenu;
    pop3: TtfXPPopUpMenu;
    pop4: TtfXPPopUpMenu;
    pop5: TtfXPPopUpMenu;
    pop6: TtfXPPopUpMenu;
    pop7: TtfXPPopUpMenu;
    pop8: TtfXPPopUpMenu;
    pop9: TtfXPPopUpMenu;
    pop10: TtfXPPopUpMenu;
    pop11: TtfXPPopUpMenu;
    pop12: TtfXPPopUpMenu;
    pop24: TtfXPPopUpMenu;
    pop23: TtfXPPopUpMenu;
    pop22: TtfXPPopUpMenu;
    pop21: TtfXPPopUpMenu;
    pop20: TtfXPPopUpMenu;
    pop19: TtfXPPopUpMenu;
    pop18: TtfXPPopUpMenu;
    pop17: TtfXPPopUpMenu;
    pop16: TtfXPPopUpMenu;
    pop15: TtfXPPopUpMenu;
    pop14: TtfXPPopUpMenu;
    pop13: TtfXPPopUpMenu;
    LigarMonitor1: TMenuItem;
    DesligarMonitor1: TMenuItem;
    N1: TMenuItem;
    EnviarMensagem1: TMenuItem;
    N2: TMenuItem;
    DesligaroComputador1: TMenuItem;
    pnlpc6: TPanel;
    off6: TLabel;
    on6: TLabel;
    lblpc6: TLabel;
    lblip6: TLabel;
    lblnome6: TLabel;
    lblcod6: TLabel;
    RxSwitch6: TRxSwitch;
    setabaixo6: TdxButton;
    detais6: TPanel;
    Label60: TLabel;
    Label61: TLabel;
    lbltotalmicro6: TLabel;
    lbltempomicro6: TLMDLEDLabel;
    setacima6: TdxButton;
    MaskEdit6: TMaskEdit;
    EnviarMensagem2: TMenuItem;
    N3: TMenuItem;
    LigarMonitor2: TMenuItem;
    DesligarMonitor2: TMenuItem;
    DesligaroComputador2: TMenuItem;
    N4: TMenuItem;
    EnviarMensagem3: TMenuItem;
    N5: TMenuItem;
    LigarMonitor3: TMenuItem;
    DesligarMonitor3: TMenuItem;
    DesligaroComputador3: TMenuItem;
    N6: TMenuItem;
    EnviarMensagem4: TMenuItem;
    N7: TMenuItem;
    LigarMonitor4: TMenuItem;
    DesligarMonitor4: TMenuItem;
    DesligaroComputador4: TMenuItem;
    N8: TMenuItem;
    EnviarMensagem5: TMenuItem;
    N9: TMenuItem;
    LigarMonitor5: TMenuItem;
    DesligarMonitor5: TMenuItem;
    DesligaroComputador5: TMenuItem;
    N10: TMenuItem;
    EnviarMensagem6: TMenuItem;
    N11: TMenuItem;
    LigarMonitor6: TMenuItem;
    DesligarMonitor6: TMenuItem;
    DesligaroComputador6: TMenuItem;
    N12: TMenuItem;
    EnviarMensagem7: TMenuItem;
    N13: TMenuItem;
    LigarMonitor7: TMenuItem;
    DesligarMonitor7: TMenuItem;
    DesligaroComputador7: TMenuItem;
    N14: TMenuItem;
    EnviarMensagem8: TMenuItem;
    N15: TMenuItem;
    LigarMonitor8: TMenuItem;
    DesligarMonitor8: TMenuItem;
    DesligaroComputador8: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    LigarMonitor9: TMenuItem;
    DesligarMonitor9: TMenuItem;
    DesligaroComputador9: TMenuItem;
    N18: TMenuItem;
    EnviarMensagem10: TMenuItem;
    N19: TMenuItem;
    LigarMonitor10: TMenuItem;
    DesligarMonitor10: TMenuItem;
    DesligaroComputador10: TMenuItem;
    N20: TMenuItem;
    EnviarMensagem11: TMenuItem;
    N21: TMenuItem;
    LigarMonitor11: TMenuItem;
    DesligarMonitor11: TMenuItem;
    DesligaroComputador11: TMenuItem;
    N22: TMenuItem;
    EnviarMensagem12: TMenuItem;
    N23: TMenuItem;
    LigarMonitor12: TMenuItem;
    DesligarMonitor12: TMenuItem;
    DesligaroComputador12: TMenuItem;
    N24: TMenuItem;
    EnviarMensagem13: TMenuItem;
    N25: TMenuItem;
    LigarMonitor13: TMenuItem;
    DesligarMonitor13: TMenuItem;
    DesligaroComputador13: TMenuItem;
    N26: TMenuItem;
    EnviarMensagem14: TMenuItem;
    N27: TMenuItem;
    LigarMonitor14: TMenuItem;
    DesligarMonitor14: TMenuItem;
    DesligaroComputador14: TMenuItem;
    N28: TMenuItem;
    EnviarMensagem15: TMenuItem;
    N29: TMenuItem;
    LigarMonitor15: TMenuItem;
    DesligarMonitor15: TMenuItem;
    DesligaroComputador15: TMenuItem;
    N30: TMenuItem;
    EnviarMensagem16: TMenuItem;
    N31: TMenuItem;
    LigarMonitor16: TMenuItem;
    DesligarMonitor16: TMenuItem;
    DesligaroComputador16: TMenuItem;
    N32: TMenuItem;
    EnviarMensagem17: TMenuItem;
    N33: TMenuItem;
    LigarMonitor17: TMenuItem;
    DesligarMonitor17: TMenuItem;
    DesligaroComputador17: TMenuItem;
    N34: TMenuItem;
    EnviarMensagem18: TMenuItem;
    N35: TMenuItem;
    LigarMonitor18: TMenuItem;
    DesligarMonitor18: TMenuItem;
    DesligaroComputador18: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    LigarMonitor19: TMenuItem;
    DesligarMonitor19: TMenuItem;
    DesligaroComputador19: TMenuItem;
    N38: TMenuItem;
    EnviarMensagem20: TMenuItem;
    N39: TMenuItem;
    LigarMonitor20: TMenuItem;
    DesligarMonitor20: TMenuItem;
    DesligaroComputador20: TMenuItem;
    N40: TMenuItem;
    EnviarMensagem21: TMenuItem;
    N41: TMenuItem;
    LigarMonitor21: TMenuItem;
    DesligarMonitor21: TMenuItem;
    DesligaroComputador21: TMenuItem;
    N42: TMenuItem;
    EnviarMensagem22: TMenuItem;
    N43: TMenuItem;
    LigarMonitor22: TMenuItem;
    DesligarMonitor22: TMenuItem;
    DesligaroComputador22: TMenuItem;
    N44: TMenuItem;
    EnviarMensagem23: TMenuItem;
    N45: TMenuItem;
    LigarMonitor23: TMenuItem;
    DesligarMonitor23: TMenuItem;
    DesligaroComputador23: TMenuItem;
    N46: TMenuItem;
    EnviarMensagem24: TMenuItem;
    N47: TMenuItem;
    LigarMonitor24: TMenuItem;
    DesligarMonitor24: TMenuItem;
    DesligaroComputador24: TMenuItem;
    N48: TMenuItem;
    MsgClient12: TNMMsg;
    MsgClient11: TNMMsg;
    MsgClient13: TNMMsg;
    MsgClient22: TNMMsg;
    MsgClient14: TNMMsg;
    MsgClient15: TNMMsg;
    MsgClient16: TNMMsg;
    MsgClient17: TNMMsg;
    MsgClient18: TNMMsg;
    MsgClient19: TNMMsg;
    MsgClient20: TNMMsg;
    MsgClient21: TNMMsg;
    MsgClient24: TNMMsg;
    MsgClient23: TNMMsg;
    tiMicro11: TRxTimerEvent;
    tiMicro12: TRxTimerEvent;
    tiMicro13: TRxTimerEvent;
    tiMicro14: TRxTimerEvent;
    tiMicro15: TRxTimerEvent;
    tiMicro16: TRxTimerEvent;
    tiMicro17: TRxTimerEvent;
    tiMicro18: TRxTimerEvent;
    tiMicro19: TRxTimerEvent;
    tiMicro20: TRxTimerEvent;
    tiMicro21: TRxTimerEvent;
    tiMicro22: TRxTimerEvent;
    tiMicro23: TRxTimerEvent;
    tiMicro24: TRxTimerEvent;
    imgdeslig1: TImage;
    imgdeslig2: TImage;
    imgdeslig3: TImage;
    imgdeslig4: TImage;
    imgdeslig5: TImage;
    imgdeslig6: TImage;
    imgdeslig7: TImage;
    imgdeslig8: TImage;
    imgdeslig9: TImage;
    imgdeslig10: TImage;
    imgdeslig11: TImage;
    imgdeslig12: TImage;
    imgdeslig13: TImage;
    imgdeslig14: TImage;
    imgdeslig15: TImage;
    imgdeslig16: TImage;
    imgdeslig17: TImage;
    imgdeslig18: TImage;
    imgdeslig19: TImage;
    imgdeslig20: TImage;
    imgdeslig21: TImage;
    imgdeslig22: TImage;
    imgdeslig23: TImage;
    imgdeslig24: TImage;
    dxButton1: TdxButton;
    lblcomp1: TRxLabel;
    lblcomp2: TRxLabel;
    dxButton2: TdxButton;
    lblcomp3: TRxLabel;
    dxButton3: TdxButton;
    lblcomp4: TRxLabel;
    dxButton4: TdxButton;
    lblcomp5: TRxLabel;
    dxButton5: TdxButton;
    lblcomp6: TRxLabel;
    dxButton6: TdxButton;
    lblcomp7: TRxLabel;
    dxButton7: TdxButton;
    lblcomp8: TRxLabel;
    dxButton8: TdxButton;
    lblcomp9: TRxLabel;
    dxButton9: TdxButton;
    lblcomp10: TRxLabel;
    dxButton10: TdxButton;
    lblcomp11: TRxLabel;
    dxButton11: TdxButton;
    lblcomp12: TRxLabel;
    dxButton12: TdxButton;
    lblcomp13: TRxLabel;
    dxButton13: TdxButton;
    lblcomp14: TRxLabel;
    dxButton14: TdxButton;
    lblcomp15: TRxLabel;
    dxButton15: TdxButton;
    lblcomp16: TRxLabel;
    dxButton16: TdxButton;
    lblcomp17: TRxLabel;
    dxButton17: TdxButton;
    lblcomp18: TRxLabel;
    dxButton18: TdxButton;
    lblcomp19: TRxLabel;
    dxButton19: TdxButton;
    lblcomp20: TRxLabel;
    dxButton20: TdxButton;
    lblcomp21: TRxLabel;
    dxButton21: TdxButton;
    lblcomp22: TRxLabel;
    dxButton22: TdxButton;
    lblcomp23: TRxLabel;
    dxButton23: TdxButton;
    lblcomp24: TRxLabel;
    dxButton24: TdxButton;
    Bevel1: TBevel;
    RxLookupEdit2: TRxLookupEdit;
    RxLookupEdit3: TRxLookupEdit;
    RxLookupEdit4: TRxLookupEdit;
    RxLookupEdit5: TRxLookupEdit;
    RxLookupEdit6: TRxLookupEdit;
    RxLookupEdit7: TRxLookupEdit;
    RxLookupEdit8: TRxLookupEdit;
    RxLookupEdit9: TRxLookupEdit;
    RxLookupEdit10: TRxLookupEdit;
    RxLookupEdit11: TRxLookupEdit;
    RxLookupEdit12: TRxLookupEdit;
    RxLookupEdit13: TRxLookupEdit;
    RxLookupEdit14: TRxLookupEdit;
    RxLookupEdit15: TRxLookupEdit;
    RxLookupEdit16: TRxLookupEdit;
    RxLookupEdit17: TRxLookupEdit;
    RxLookupEdit18: TRxLookupEdit;
    RxLookupEdit19: TRxLookupEdit;
    RxLookupEdit20: TRxLookupEdit;
    RxLookupEdit21: TRxLookupEdit;
    RxLookupEdit22: TRxLookupEdit;
    RxLookupEdit23: TRxLookupEdit;
    RxLookupEdit24: TRxLookupEdit;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    DBText11: TDBText;
    DBText12: TDBText;
    DBText13: TDBText;
    DBText14: TDBText;
    DBText15: TDBText;
    DBText16: TDBText;
    DBText17: TDBText;
    DBText18: TDBText;
    DBText19: TDBText;
    DBText20: TDBText;
    DBText21: TDBText;
    DBText22: TDBText;
    DBText23: TDBText;
    DBText24: TDBText;
    Label1: TLabel;
    framessage1: Tframessage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    EnviarMensagem9: TMenuItem;
    EnviarMensagem19: TMenuItem;
    Image1: TImage;
    Label30: TLabel;
    Label28: TLabel;
    detais1: TPanel;
    lblprevio: TLabel;
    lblr: TLabel;
    lbltotalmicro1: TLabel;
    lbltempomicro1: TLMDLEDLabel;
    DBText1: TDBText;
    Label27: TLabel;
    lblgrupo1: TRxLabel;
    lblusuario1: TRxLabel;
    Label29: TLabel;
    Label31: TLabel;
    setacima1: TdxButton;
    MaskEdit1: TMaskEdit;
    RxLookupEdit1: TRxLookupEdit;
    alt1: TdxButton;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label78: TLabel;
    Label79: TLabel;
    Label80: TLabel;
    Label81: TLabel;
    Label82: TLabel;
    Label83: TLabel;
    Label86: TLabel;
    Label87: TLabel;
    Label88: TLabel;
    Label89: TLabel;
    Label90: TLabel;
    Label91: TLabel;
    alt2: TdxButton;
    alt3: TdxButton;
    alt4: TdxButton;
    dxButton28: TdxButton;
    alt6: TdxButton;
    alt11: TdxButton;
    alt10: TdxButton;
    alt9: TdxButton;
    alt8: TdxButton;
    alt7: TdxButton;
    alt12: TdxButton;
    alt13: TdxButton;
    alt14: TdxButton;
    alt15: TdxButton;
    alt16: TdxButton;
    alt17: TdxButton;
    alt18: TdxButton;
    alt24: TdxButton;
    alt23: TdxButton;
    alt19: TdxButton;
    alt20: TdxButton;
    alt21: TdxButton;
    alt22: TdxButton;
    lblusuario2: TRxLabel;
    lblgrupo2: TRxLabel;
    lblusuario3: TRxLabel;
    lblgrupo3: TRxLabel;
    lblgrupo4: TRxLabel;
    lblusuario4: TRxLabel;
    lblgrupo5: TRxLabel;
    lblusuario5: TRxLabel;
    lblusuario6: TRxLabel;
    lblgrupo6: TRxLabel;
    lblgrupo7: TRxLabel;
    lblusuario7: TRxLabel;
    lblusuario8: TRxLabel;
    lblgrupo8: TRxLabel;
    lblusuario9: TRxLabel;
    lblgrupo9: TRxLabel;
    lblgrupo10: TRxLabel;
    lblusuario10: TRxLabel;
    lblgrupo11: TRxLabel;
    lblusuario11: TRxLabel;
    lblusuario12: TRxLabel;
    lblgrupo12: TRxLabel;
    lblusuario13: TRxLabel;
    lblgrupo13: TRxLabel;
    lblusuario14: TRxLabel;
    lblgrupo14: TRxLabel;
    lblusuario15: TRxLabel;
    lblgrupo15: TRxLabel;
    lblusuario16: TRxLabel;
    lblgrupo16: TRxLabel;
    lblusuario17: TRxLabel;
    lblgrupo17: TRxLabel;
    lblusuario18: TRxLabel;
    lblgrupo18: TRxLabel;
    lblusuario19: TRxLabel;
    lblgrupo19: TRxLabel;
    lblusuario20: TRxLabel;
    lblgrupo20: TRxLabel;
    lblusuario21: TRxLabel;
    lblgrupo21: TRxLabel;
    lblusuario22: TRxLabel;
    lblgrupo22: TRxLabel;
    lblusuario23: TRxLabel;
    lblgrupo23: TRxLabel;
    lblusuario24: TRxLabel;
    lblgrupo24: TRxLabel;
    gifpc1: TRxGIFAnimator;
    gifpc2: TRxGIFAnimator;
    gifpc3: TRxGIFAnimator;
    gifpc4: TRxGIFAnimator;
    gifpc5: TRxGIFAnimator;
    gifpc6: TRxGIFAnimator;
    gifpc7: TRxGIFAnimator;
    gifpc8: TRxGIFAnimator;
    gifpc9: TRxGIFAnimator;
    gifpc10: TRxGIFAnimator;
    gifpc11: TRxGIFAnimator;
    gifpc12: TRxGIFAnimator;
    gifpc13: TRxGIFAnimator;
    gifpc14: TRxGIFAnimator;
    gifpc15: TRxGIFAnimator;
    gifpc16: TRxGIFAnimator;
    gifpc17: TRxGIFAnimator;
    gifpc18: TRxGIFAnimator;
    gifpc19: TRxGIFAnimator;
    gifpc20: TRxGIFAnimator;
    gifpc21: TRxGIFAnimator;
    gifpc22: TRxGIFAnimator;
    gifpc23: TRxGIFAnimator;
    gifpc24: TRxGIFAnimator;
    dxButton25: TdxButton;
    dxButton32: TdxButton;
    dxButton33: TdxButton;
    dxButton34: TdxButton;
    dxButton35: TdxButton;
    dxButton36: TdxButton;
    dxButton37: TdxButton;
    dxButton38: TdxButton;
    dxButton39: TdxButton;
    dxButton40: TdxButton;
    dxButton41: TdxButton;
    dxButton42: TdxButton;
    dxButton43: TdxButton;
    dxButton44: TdxButton;
    dxButton45: TdxButton;
    dxButton46: TdxButton;
    dxButton47: TdxButton;
    dxButton48: TdxButton;
    dxButton49: TdxButton;
    Desconectar1: TMenuItem;
    Desconectar2: TMenuItem;
    Desconectar3: TMenuItem;
    Desconectar4: TMenuItem;
    Desconectar5: TMenuItem;
    Desconectar6: TMenuItem;
    Desconectar7: TMenuItem;
    Desconectar8: TMenuItem;
    Desconectar9: TMenuItem;
    Desconectar10: TMenuItem;
    Desconectar11: TMenuItem;
    Desconectar12: TMenuItem;
    Desconectar13: TMenuItem;
    Desconectar14: TMenuItem;
    Desconectar15: TMenuItem;
    Desconectar16: TMenuItem;
    Desconectar17: TMenuItem;
    Desconectar18: TMenuItem;
    Desconectar19: TMenuItem;
    Desconectar20: TMenuItem;
    Desconectar21: TMenuItem;
    Desconectar22: TMenuItem;
    Desconectar23: TMenuItem;
    Desconectar24: TMenuItem;
    Timer1: TTimer;
    lblhora: TLMDLEDLabel;
    LMDLabelFill1: TLMDLabelFill;
    dxButton26: TdxButton;
    dxButton27: TdxButton;
    dxButton29: TdxButton;
    dxButton30: TdxButton;
    dxButton31: TdxButton;
    procedure Button1Click(Sender: TObject);
    procedure RxSwitch1On(Sender: TObject);
    procedure RxSwitch1Off(Sender: TObject);
    procedure MsgClient1Connect(Sender: TObject);
    procedure MsgClient1ConnectionFailed(Sender: TObject);
    procedure OnShow(Sender: TObject);
    procedure MsgClient2Connect(Sender: TObject);
    procedure MsgClient2ConnectionFailed(Sender: TObject);
    procedure tiMicro1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure MsgClient3Connect(Sender: TObject);
    procedure MsgClient4Connect(Sender: TObject);
    procedure MsgClient5Connect(Sender: TObject);
    procedure MsgClient6Connect(Sender: TObject);
    procedure MsgClient7Connect(Sender: TObject);
    procedure MsgClient8Connect(Sender: TObject);
    procedure MsgClient9Connect(Sender: TObject);
    procedure MsgClient10Connect(Sender: TObject);
    procedure MsgClient3ConnectionFailed(Sender: TObject);
    procedure MsgClient4ConnectionFailed(Sender: TObject);
    procedure MsgClient5ConnectionFailed(Sender: TObject);
    procedure MsgClient6ConnectionFailed(Sender: TObject);
    procedure MsgClient7ConnectionFailed(Sender: TObject);
    procedure MsgClient8ConnectionFailed(Sender: TObject);
    procedure MsgClient9ConnectionFailed(Sender: TObject);
    procedure MsgClient10ConnectionFailed(Sender: TObject);
    procedure RxSwitch2On(Sender: TObject);
    procedure RxSwitch3On(Sender: TObject);
    procedure RxSwitch4On(Sender: TObject);
    procedure RxSwitch5On(Sender: TObject);
    procedure RxSwitch6On(Sender: TObject);
    procedure RxSwitch7On(Sender: TObject);
    procedure RxSwitch8On(Sender: TObject);
    procedure RxSwitch9On(Sender: TObject);
    procedure RxSwitch10On(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure tiMicro2Timer(Sender: TObject);
    procedure tiMicro3Timer(Sender: TObject);
    procedure tiMicro4Timer(Sender: TObject);
    procedure tiMicro5Timer(Sender: TObject);
    procedure tiMicro6Timer(Sender: TObject);
    procedure tiMicro7Timer(Sender: TObject);
    procedure tiMicro8Timer(Sender: TObject);
    procedure tiMicro9Timer(Sender: TObject);
    procedure tiMicro10Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxButton1Click(Sender: TObject);
    procedure testeClick(Sender: TObject);
    procedure dxButton3Click(Sender: TObject);
    procedure dxButton4Click(Sender: TObject);
    procedure dxButton5Click(Sender: TObject);
    procedure dxButton6Click(Sender: TObject);
    procedure dxButton7Click(Sender: TObject);
    procedure dxButton8Click(Sender: TObject);
    procedure dxButton9Click(Sender: TObject);
    procedure dxButton10Click(Sender: TObject);
    procedure btnfecharClick(Sender: TObject);
    procedure RxSwitch2Off(Sender: TObject);
    procedure RxSwitch3Off(Sender: TObject);
    procedure RxSwitch4Off(Sender: TObject);
    procedure RxSwitch5Off(Sender: TObject);
    procedure RxSwitch6Off(Sender: TObject);
    procedure RxSwitch7Off(Sender: TObject);
    procedure RxSwitch8Off(Sender: TObject);
    procedure RxSwitch9Off(Sender: TObject);
    procedure RxSwitch10Off(Sender: TObject);
    procedure dxButton13Click(Sender: TObject);
    procedure incluirbtnClick(Sender: TObject);
    procedure dxButton15Click(Sender: TObject);
    procedure dxButton16Click(Sender: TObject);
    procedure dxButton17Click(Sender: TObject);
    procedure dxButton18Click(Sender: TObject);
    procedure dxButton19Click(Sender: TObject);
    procedure dxButton20Click(Sender: TObject);
    procedure dxButton21Click(Sender: TObject);
    procedure dxButton22Click(Sender: TObject);
    procedure serverMSG(Sender: TComponent; const sFrom, sMsg: String);
    procedure setabaixo1Click(Sender: TObject);
    procedure setacima1Click(Sender: TObject);
    procedure LigarMonitor13Click(Sender: TObject);
    procedure LigarMonitor1Click(Sender: TObject);
    procedure LigarMonitor2Click(Sender: TObject);
    procedure LigarMonitor3Click(Sender: TObject);
    procedure LigarMonitor4Click(Sender: TObject);
    procedure LigarMonitor5Click(Sender: TObject);
    procedure LigarMonitor6Click(Sender: TObject);
    procedure LigarMonitor7Click(Sender: TObject);
    procedure LigarMonitor8Click(Sender: TObject);
    procedure LigarMonitor9Click(Sender: TObject);
    procedure LigarMonitor10Click(Sender: TObject);
    procedure LigarMonitor11Click(Sender: TObject);
    procedure LigarMonitor12Click(Sender: TObject);
    procedure LigarMonitor14Click(Sender: TObject);
    procedure LigarMonitor15Click(Sender: TObject);
    procedure LigarMonitor16Click(Sender: TObject);
    procedure LigarMonitor17Click(Sender: TObject);
    procedure LigarMonitor18Click(Sender: TObject);
    procedure LigarMonitor19Click(Sender: TObject);
    procedure LigarMonitor20Click(Sender: TObject);
    procedure LigarMonitor21Click(Sender: TObject);
    procedure LigarMonitor22Click(Sender: TObject);
    procedure LigarMonitor23Click(Sender: TObject);
    procedure LigarMonitor24Click(Sender: TObject);
    procedure DesligarMonitor1Click(Sender: TObject);
    procedure DesligarMonitor2Click(Sender: TObject);
    procedure DesligarMonitor3Click(Sender: TObject);
    procedure DesligarMonitor4Click(Sender: TObject);
    procedure DesligarMonitor5Click(Sender: TObject);
    procedure DesligarMonitor6Click(Sender: TObject);
    procedure DesligarMonitor7Click(Sender: TObject);
    procedure DesligarMonitor8Click(Sender: TObject);
    procedure DesligarMonitor9Click(Sender: TObject);
    procedure DesligarMonitor10Click(Sender: TObject);
    procedure DesligarMonitor11Click(Sender: TObject);
    procedure DesligarMonitor12Click(Sender: TObject);
    procedure DesligarMonitor13Click(Sender: TObject);
    procedure DesligarMonitor14Click(Sender: TObject);
    procedure DesligarMonitor15Click(Sender: TObject);
    procedure DesligarMonitor16Click(Sender: TObject);
    procedure DesligarMonitor17Click(Sender: TObject);
    procedure DesligarMonitor18Click(Sender: TObject);
    procedure DesligarMonitor19Click(Sender: TObject);
    procedure DesligarMonitor20Click(Sender: TObject);
    procedure DesligarMonitor21Click(Sender: TObject);
    procedure DesligarMonitor22Click(Sender: TObject);
    procedure DesligarMonitor23Click(Sender: TObject);
    procedure DesligarMonitor24Click(Sender: TObject);
    procedure EnviarMensagem1Click(Sender: TObject);
    procedure EnviarMensagem2Click(Sender: TObject);
    procedure EnviarMensagem3Click(Sender: TObject);
    procedure EnviarMensagem4Click(Sender: TObject);
    procedure EnviarMensagem5Click(Sender: TObject);
    procedure EnviarMensagem6Click(Sender: TObject);
    procedure EnviarMensagem7Click(Sender: TObject);
    procedure EnviarMensagem8Click(Sender: TObject);
    procedure EnviarMensagem9Click(Sender: TObject);
    procedure EnviarMensagem10Click(Sender: TObject);
    procedure EnviarMensagem11Click(Sender: TObject);
    procedure EnviarMensagem12Click(Sender: TObject);
    procedure EnviarMensagem13Click(Sender: TObject);
    procedure EnviarMensagem14Click(Sender: TObject);
    procedure EnviarMensagem15Click(Sender: TObject);
    procedure EnviarMensagem16Click(Sender: TObject);
    procedure EnviarMensagem17Click(Sender: TObject);
    procedure EnviarMensagem18Click(Sender: TObject);
    procedure EnviarMensagem19Click(Sender: TObject);
    procedure EnviarMensagem20Click(Sender: TObject);
    procedure EnviarMensagem21Click(Sender: TObject);
    procedure EnviarMensagem22Click(Sender: TObject);
    procedure EnviarMensagem23Click(Sender: TObject);
    procedure EnviarMensagem24Click(Sender: TObject);
    procedure MsgClient11Connect(Sender: TObject);
    procedure MsgClient12Connect(Sender: TObject);
    procedure MsgClient13Connect(Sender: TObject);
    procedure MsgClient14Connect(Sender: TObject);
    procedure MsgClient15Connect(Sender: TObject);
    procedure MsgClient16Connect(Sender: TObject);
    procedure MsgClient17Connect(Sender: TObject);
    procedure MsgClient18Connect(Sender: TObject);
    procedure MsgClient19Connect(Sender: TObject);
    procedure MsgClient20Connect(Sender: TObject);
    procedure MsgClient21Connect(Sender: TObject);
    procedure MsgClient22Connect(Sender: TObject);
    procedure MsgClient23Connect(Sender: TObject);
    procedure MsgClient24Connect(Sender: TObject);
    procedure RxSwitch11Off(Sender: TObject);
    procedure RxSwitch12Off(Sender: TObject);
    procedure RxSwitch13Off(Sender: TObject);
    procedure RxSwitch14Off(Sender: TObject);
    procedure RxSwitch15Off(Sender: TObject);
    procedure RxSwitch16Off(Sender: TObject);
    procedure RxSwitch17Off(Sender: TObject);
    procedure RxSwitch18Off(Sender: TObject);
    procedure RxSwitch19Off(Sender: TObject);
    procedure RxSwitch20Off(Sender: TObject);
    procedure RxSwitch21Off(Sender: TObject);
    procedure RxSwitch22Off(Sender: TObject);
    procedure RxSwitch23Off(Sender: TObject);
    procedure RxSwitch24Off(Sender: TObject);
    procedure RxSwitch11On(Sender: TObject);
    procedure RxSwitch12On(Sender: TObject);
    procedure RxSwitch13On(Sender: TObject);
    procedure RxSwitch14On(Sender: TObject);
    procedure RxSwitch15On(Sender: TObject);
    procedure RxSwitch16On(Sender: TObject);
    procedure RxSwitch17On(Sender: TObject);
    procedure RxSwitch18On(Sender: TObject);
    procedure RxSwitch19On(Sender: TObject);
    procedure RxSwitch20On(Sender: TObject);
    procedure RxSwitch21On(Sender: TObject);
    procedure RxSwitch22On(Sender: TObject);
    procedure RxSwitch23On(Sender: TObject);
    procedure RxSwitch24On(Sender: TObject);
    procedure tiMicro11Timer(Sender: TObject);
    procedure tiMicro12Timer(Sender: TObject);
    procedure tiMicro13Timer(Sender: TObject);
    procedure tiMicro14Timer(Sender: TObject);
    procedure tiMicro15Timer(Sender: TObject);
    procedure tiMicro16Timer(Sender: TObject);
    procedure tiMicro17Timer(Sender: TObject);
    procedure tiMicro18Timer(Sender: TObject);
    procedure tiMicro19Timer(Sender: TObject);
    procedure tiMicro20Timer(Sender: TObject);
    procedure tiMicro21Timer(Sender: TObject);
    procedure tiMicro22Timer(Sender: TObject);
    procedure tiMicro23Timer(Sender: TObject);
    procedure tiMicro24Timer(Sender: TObject);
    procedure MsgClient11ConnectionFailed(Sender: TObject);
    procedure MsgClient12ConnectionFailed(Sender: TObject);
    procedure MsgClient13ConnectionFailed(Sender: TObject);
    procedure MsgClient14ConnectionFailed(Sender: TObject);
    procedure MsgClient15ConnectionFailed(Sender: TObject);
    procedure MsgClient16ConnectionFailed(Sender: TObject);
    procedure MsgClient17ConnectionFailed(Sender: TObject);
    procedure MsgClient18ConnectionFailed(Sender: TObject);
    procedure MsgClient19ConnectionFailed(Sender: TObject);
    procedure MsgClient20ConnectionFailed(Sender: TObject);
    procedure MsgClient21ConnectionFailed(Sender: TObject);
    procedure MsgClient22ConnectionFailed(Sender: TObject);
    procedure MsgClient23ConnectionFailed(Sender: TObject);
    procedure MsgClient24ConnectionFailed(Sender: TObject);
    procedure dxButton2Click(Sender: TObject);
    procedure dxButton11Click(Sender: TObject);
    procedure dxButton12Click(Sender: TObject);
    procedure dxButton14Click(Sender: TObject);
    procedure dxButton23Click(Sender: TObject);
    procedure dxButton24Click(Sender: TObject);
    procedure setabaixo10Click(Sender: TObject);
    procedure setabaixo11Click(Sender: TObject);
    procedure setabaixo12Click(Sender: TObject);
    procedure setabaixo13Click(Sender: TObject);
    procedure setabaixo14Click(Sender: TObject);
    procedure setabaixo15Click(Sender: TObject);
    procedure setabaixo16Click(Sender: TObject);
    procedure setabaixo17Click(Sender: TObject);
    procedure setabaixo18Click(Sender: TObject);
    procedure setabaixo19Click(Sender: TObject);
    procedure setabaixo2Click(Sender: TObject);
    procedure setabaixo20Click(Sender: TObject);
    procedure setabaixo21Click(Sender: TObject);
    procedure setabaixo22Click(Sender: TObject);
    procedure setabaixo23Click(Sender: TObject);
    procedure setabaixo24Click(Sender: TObject);
    procedure setacima10Click(Sender: TObject);
    procedure setacima11Click(Sender: TObject);
    procedure setacima12Click(Sender: TObject);
    procedure setacima13Click(Sender: TObject);
    procedure setacima14Click(Sender: TObject);
    procedure setacima15Click(Sender: TObject);
    procedure setacima16Click(Sender: TObject);
    procedure setacima17Click(Sender: TObject);
    procedure setacima18Click(Sender: TObject);
    procedure setacima19Click(Sender: TObject);
    procedure setacima2Click(Sender: TObject);
    procedure setacima20Click(Sender: TObject);
    procedure setacima21Click(Sender: TObject);
    procedure setacima22Click(Sender: TObject);
    procedure setacima23Click(Sender: TObject);
    procedure setacima24Click(Sender: TObject);
    procedure RxLookupEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit16KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit17KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit18KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit19KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit20KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit21KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit22KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit23KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RxLookupEdit24KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure setabaixo3Click(Sender: TObject);
    procedure setabaixo4Click(Sender: TObject);
    procedure setabaixo5Click(Sender: TObject);
    procedure setabaixo6Click(Sender: TObject);
    procedure setabaixo7Click(Sender: TObject);
    procedure setabaixo8Click(Sender: TObject);
    procedure setabaixo9Click(Sender: TObject);
    procedure framessage1tfXPButton1Click(Sender: TObject);
    procedure framessage1dxButton1Click(Sender: TObject);
    procedure setacima3Click(Sender: TObject);
    procedure setacima4Click(Sender: TObject);
    procedure setacima5Click(Sender: TObject);
    procedure setacima6Click(Sender: TObject);
    procedure setacima7Click(Sender: TObject);
    procedure setacima8Click(Sender: TObject);
    procedure setacima9Click(Sender: TObject);
    procedure MaskEdit1Change(Sender: TObject);
    procedure MaskEdit10Change(Sender: TObject);
    procedure MaskEdit11Change(Sender: TObject);
    procedure MaskEdit12Change(Sender: TObject);
    procedure MaskEdit13Change(Sender: TObject);
    procedure MaskEdit14Change(Sender: TObject);
    procedure MaskEdit15Change(Sender: TObject);
    procedure MaskEdit16Change(Sender: TObject);
    procedure MaskEdit17Change(Sender: TObject);
    procedure MaskEdit18Change(Sender: TObject);
    procedure MaskEdit19Change(Sender: TObject);
    procedure MaskEdit2Change(Sender: TObject);
    procedure MaskEdit20Change(Sender: TObject);
    procedure MaskEdit21Change(Sender: TObject);
    procedure MaskEdit22Change(Sender: TObject);
    procedure MaskEdit23Change(Sender: TObject);
    procedure MaskEdit24Change(Sender: TObject);
    procedure MaskEdit3Change(Sender: TObject);
    procedure MaskEdit4Change(Sender: TObject);
    procedure MaskEdit5Change(Sender: TObject);
    procedure MaskEdit6Change(Sender: TObject);
    procedure MaskEdit7Change(Sender: TObject);
    procedure MaskEdit8Change(Sender: TObject);
    procedure MaskEdit9Change(Sender: TObject);
    procedure alt1Click(Sender: TObject);
    procedure alt2Click(Sender: TObject);
    procedure alt3Click(Sender: TObject);
    procedure alt4Click(Sender: TObject);
    procedure dxButton28Click(Sender: TObject);
    procedure alt6Click(Sender: TObject);
    procedure alt7Click(Sender: TObject);
    procedure alt8Click(Sender: TObject);
    procedure alt9Click(Sender: TObject);
    procedure alt10Click(Sender: TObject);
    procedure alt11Click(Sender: TObject);
    procedure alt12Click(Sender: TObject);
    procedure alt13Click(Sender: TObject);
    procedure alt14Click(Sender: TObject);
    procedure alt15Click(Sender: TObject);
    procedure alt16Click(Sender: TObject);
    procedure alt17Click(Sender: TObject);
    procedure alt18Click(Sender: TObject);
    procedure alt19Click(Sender: TObject);
    procedure alt20Click(Sender: TObject);
    procedure alt21Click(Sender: TObject);
    procedure alt22Click(Sender: TObject);
    procedure alt23Click(Sender: TObject);
    procedure alt24Click(Sender: TObject);
    procedure recuperar(Sender: TObject);
    procedure dxButton25Click(Sender: TObject);
    procedure dxButton26Click(Sender: TObject);
    procedure dxButton27Click(Sender: TObject);
    procedure dxButton29Click(Sender: TObject);
    procedure dxButton30Click(Sender: TObject);
    procedure dxButton31Click(Sender: TObject);
    procedure dxButton32Click(Sender: TObject);
    procedure dxButton33Click(Sender: TObject);
    procedure dxButton34Click(Sender: TObject);
    procedure dxButton35Click(Sender: TObject);
    procedure dxButton36Click(Sender: TObject);
    procedure dxButton37Click(Sender: TObject);
    procedure dxButton38Click(Sender: TObject);
    procedure dxButton39Click(Sender: TObject);
    procedure dxButton40Click(Sender: TObject);
    procedure dxButton41Click(Sender: TObject);
    procedure dxButton42Click(Sender: TObject);
    procedure dxButton43Click(Sender: TObject);
    procedure dxButton44Click(Sender: TObject);
    procedure dxButton45Click(Sender: TObject);
    procedure dxButton46Click(Sender: TObject);
    procedure dxButton47Click(Sender: TObject);
    procedure dxButton48Click(Sender: TObject);
    procedure dxButton49Click(Sender: TObject);
    procedure DesligaroComputador1Click(Sender: TObject);
    procedure DesligaroComputador2Click(Sender: TObject);
    procedure DesligaroComputador3Click(Sender: TObject);
    procedure DesligaroComputador4Click(Sender: TObject);
    procedure DesligaroComputador5Click(Sender: TObject);
    procedure DesligaroComputador6Click(Sender: TObject);
    procedure DesligaroComputador7Click(Sender: TObject);
    procedure DesligaroComputador8Click(Sender: TObject);
    procedure DesligaroComputador9Click(Sender: TObject);
    procedure DesligaroComputador10Click(Sender: TObject);
    procedure DesligaroComputador11Click(Sender: TObject);
    procedure DesligaroComputador12Click(Sender: TObject);
    procedure DesligaroComputador13Click(Sender: TObject);
    procedure DesligaroComputador14Click(Sender: TObject);
    procedure DesligaroComputador15Click(Sender: TObject);
    procedure DesligaroComputador16Click(Sender: TObject);
    procedure DesligaroComputador17Click(Sender: TObject);
    procedure DesligaroComputador18Click(Sender: TObject);
    procedure DesligaroComputador19Click(Sender: TObject);
    procedure DesligaroComputador20Click(Sender: TObject);
    procedure DesligaroComputador21Click(Sender: TObject);
    procedure DesligaroComputador22Click(Sender: TObject);
    procedure DesligaroComputador23Click(Sender: TObject);
    procedure DesligaroComputador24Click(Sender: TObject);
    procedure Desconectar1Click(Sender: TObject);
    procedure Desconectar24Click(Sender: TObject);
    procedure Desconectar23Click(Sender: TObject);
    procedure Desconectar22Click(Sender: TObject);
    procedure Desconectar21Click(Sender: TObject);
    procedure Desconectar20Click(Sender: TObject);
    procedure Desconectar19Click(Sender: TObject);
    procedure Desconectar18Click(Sender: TObject);
    procedure Desconectar17Click(Sender: TObject);
    procedure Desconectar16Click(Sender: TObject);
    procedure Desconectar15Click(Sender: TObject);
    procedure Desconectar14Click(Sender: TObject);
    procedure Desconectar2Click(Sender: TObject);
    procedure Desconectar3Click(Sender: TObject);
    procedure Desconectar4Click(Sender: TObject);
    procedure Desconectar5Click(Sender: TObject);
    procedure Desconectar6Click(Sender: TObject);
    procedure Desconectar7Click(Sender: TObject);
    procedure Desconectar8Click(Sender: TObject);
    procedure Desconectar9Click(Sender: TObject);
    procedure Desconectar10Click(Sender: TObject);
    procedure Desconectar11Click(Sender: TObject);
    procedure Desconectar12Click(Sender: TObject);
    procedure Desconectar13Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    valorip1, nomepc1, valorip2, nomepc2,
    valorip3, nomepc3, valorip4, nomepc4, valorip5, nomepc5,
    valorip6, nomepc6, valorip7,nomepc7,valorip8, nomepc8,
    valorip9, nomepc9, valorip10, nomepc10, valorip11, nomepc11,
    valorip12, nomepc12, valorip13, nomepc13, valorip14, nomepc14,
    valorip15, nomepc15, valorip16, nomepc16, valorip17, nomepc17,
    valorip18, nomepc18, valorip19, nomepc19, valorip20, nomepc20,
    valorip21, nomepc21, valorip22, nomepc22, valorip23, nomepc23, valorip24, nomepc24: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmgerenciamento: TFrmgerenciamento;
  comando: string;
 {variaveis para cada contador}
  ti1, ti2, ti3, ti4, ti5, ti6, ti7, ti8, ti9, ti10, ti11, ti12 :TDateTime;
  ti13, ti14, ti15, ti16, ti17, ti18, ti19, ti20, ti21, ti22, ti23, ti24 : TDAteTime;
  chamarcliente, chamarconta, chamarmessage : string;
//--------Variáveis usadas para restaurar o tempo prévio das estações
  s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17 : String;
  s18, s19, s20, s21, s22, s23, s24 : String;
//--------usadas para o rxswitch saber se o comando é para restauração ou não
  r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13, r14, r15, r16, r17,
  r18, r19, r20, r21, r22, r23, r24 : String;
//---------usadas no rxswitch off para saber se será desconectado ou paralizado
  rxof1, rxof2, rxof3, rxof4, rxof5, rxof6, rxof7, rxof8, rxof9, rxof10, rxof11, rxof12,
  rxof13, rxof14, rxof15, rxof16, rxof17, rxof18, rxof19, rxof20, rxof21, rxof22, rxof23, rxof24 : string;
//--------usadas para receber o tempo de cada contador
  temp, ip : String;

implementation
uses constantes, Funcaos, Modulo, Principal, UFrmLocatecli, UFrmvendaacesso, UFrmmessage, UFrmMsgClient;

{$R *.DFM}

//============
procedure EnviarMsgsrv (m: string);
begin
  FrmMsgClient.Show;
  FrmMsgClient.lblmensagem.caption := m;
//  MessageDlg ('============Menssagem enviada pela estação '+m+#13+#13, mtWarning, [mbOk], 0);
//  Application.Title:= 'CMR - Controle e Monitoração de Rede';
end;

//============pegar o tempo da estação
procedure tempo (t: string);
begin
   DMEscola.Qip.Edit;
   if ip = DMEscola.QipIp1.Value then
      ti1 := StrToTime(t);
   if ip = DMEscola.QipIp2.Value then
      ti2 := StrToTime(t);
   if ip = DMEscola.QipIp3.Value then
      ti3 := StrToTime(t);
   if ip = DMEscola.QipIp4.Value then
      ti4 := StrToTime(t);
   if ip = DMEscola.QipIp5.Value then
      ti5 := StrToTime(t);
   if ip = DMEscola.QipIp6.Value then
      ti6 := StrToTime(t);
   if ip = DMEscola.QipIp7.Value then
      ti7 := StrToTime(t);
   if ip = DMEscola.QipIp8.Value then
      ti8 := StrToTime(t);
   if ip = DMEscola.QipIp9.Value then
      ti9 := StrToTime(t);
   if ip = DMEscola.QipIp10.Value then
      ti10 := StrToTime(t);
   if ip = DMEscola.QipIp11.Value then
      ti11 := StrToTime(t);
   if ip = DMEscola.QipIp12.Value then
      ti12 := StrToTime(t);
   if ip = DMEscola.QipIp13.Value then
      ti13 := StrToTime(t);
   if ip = DMEscola.QipIp14.Value then
      ti14 := StrToTime(t);
   if ip = DMEscola.QipIp15.Value then
      ti15 := StrToTime(t);
   if ip = DMEscola.QipIp16.Value then
      ti16 := StrToTime(t);
   if ip = DMEscola.QipIp17.Value then
      ti17 := StrToTime(t);
   if ip = DMEscola.QipIp18.Value then
      ti18 := StrToTime(t);
   if ip = DMEscola.QipIp19.Value then
      ti19 := StrToTime(t);
   if ip = DMEscola.QipIp20.Value then
      ti20 := StrToTime(t);
   if ip = DMEscola.QipIp21.Value then
      ti21 := StrToTime(t);
   if ip = DMEscola.QipIp22.Value then
      ti22 := StrToTime(t);
   if ip = DMEscola.QipIp23.Value then
      ti23 := StrToTime(t);
   if ip = DMEscola.QipIp24.Value then
      ti24 := StrToTime(t);
end;

//===========pegar o ip da estação
procedure getip(a: string);
begin
   ip := a;
end;

// adiciona um parametro ao comando
procedure AdicionarParametro (parametro: string; index: integer);
begin
  if index= 0 then
    Comando:='';
  while length(Comando)< index*10 do
    Comando:= Comando+ ' ';
  insert (parametro, comando, (index*10)+1);
end;

//==============================================================================

procedure TFrmgerenciamento.recuperar(Sender: TObject);
begin
   DMEscola.Qback.Edit;
   if DMEscola.QbackPc1.value = 'upload' then
   begin
      with msgClient1 do
      begin
         Abort;
         Host:= valorip1;
         port:= 6969;
         if trimRight(MsgClient1.PostIt ('')) = 'OK' then
         begin
            dxbutton1.Visible := true;
            dxbutton25.Visible := true;
            lblpc1.caption := nomepc1;
            lblip1.caption := valorip1;
         end;
      end;
      MaskEdit1.Text := DMEscola.QbackT1.value;
      lblusuario1.caption := DMEscola.QbackCli1.value;
      lblnome1.caption := DMEscola.QbackNome1.value;
      lblcod1.caption := DMEscola.QbackCod1.value;
   end;
//----------------
   if DMEscola.QbackPc2.value = 'upload' then
   begin
      with msgClient2 do
      begin
         Abort;
         Host:= valorip2;
         port:= 6969;
         if trimRight(MsgClient2.PostIt ('')) = 'OK' then
         begin
            dxbutton2.Visible := true;
            dxbutton26.Visible := true;
            lblpc2.caption := nomepc2;
            lblip2.caption := valorip2;
         end;
      end;
      MaskEdit2.Text := DMEscola.QbackT2.value;
      lblusuario2.caption := DMEscola.QbackCli2.value;
      lblnome2.caption := DMEscola.QbackNome2.value;
      lblcod2.caption := DMEscola.QbackCod1.value;
   end;
//----------
   if DMEscola.QbackPc3.value = 'upload' then
   begin
      with msgClient3 do
      begin
         Abort;
         Host:= valorip3;
         port:= 6969;
         if trimRight(MsgClient3.PostIt ('')) = 'OK' then
         begin
            dxbutton3.Visible := true;
            dxbutton27.Visible := true;
            lblpc3.caption := nomepc3;
            lblip3.caption := valorip3
         end;
      end;
      MaskEdit3.Text := DMEscola.QbackT3.value;
      lblusuario3.caption := DMEscola.QbackCli3.value;
      lblnome3.caption := DMEscola.QbackNome3.value;
      lblcod3.caption := DMEscola.QbackCod3.value;
   end;
//----------
   if DMEscola.QbackPc4.value = 'upload' then
   begin
      with msgClient4 do
      begin
         Abort;
         Host:= valorip4;
         port:= 6969;
         if trimRight(MsgClient4.PostIt ('')) = 'OK' then
         begin
            dxbutton4.Visible := true;
            dxbutton29.Visible := true;
            lblpc4.caption := nomepc4;
            lblip4.caption := valorip4
         end;
      end;
      MaskEdit4.Text := DMEscola.QbackT4.value;
      lblusuario4.caption := DMEscola.QbackCli4.value;
      lblnome4.caption := DMEscola.QbackNome4.value;
      lblcod4.caption := DMEscola.QbackCod4.value;
   end;
//------------
   if DMEscola.QbackPc5.value = 'upload' then
   begin
      with msgClient5 do
      begin
         Abort;
         Host:= valorip5;
         port:= 6969;
         if trimRight(MsgClient5.PostIt ('')) = 'OK' then
         begin
            dxbutton5.Visible := true;
            dxbutton30.Visible := true;
            lblpc5.caption := nomepc5;
            lblip5.caption := valorip5
         end;
      end;
      MaskEdit5.Text := DMEscola.QbackT5.value;
      lblusuario5.caption := DMEscola.QbackCli5.value;
      lblnome5.caption := DMEscola.QbackNome5.value;
      lblcod5.caption := DMEscola.QbackCod5.value;
   end;
//----------------
   if DMEscola.QbackPc6.value = 'upload' then
   begin
      with msgClient6 do
      begin
         Abort;
         Host:= valorip6;
         port:= 6969;
         if trimRight(MsgClient6.PostIt ('')) = 'OK' then
         begin
            dxbutton6.Visible := true;
            dxbutton31.Visible := true;
            lblpc6.caption := nomepc6;
            lblip6.caption := valorip6
         end;
      end;
      MaskEdit6.Text := DMEscola.QbackT6.value;
      lblusuario6.caption := DMEscola.QbackCli6.value;
      lblnome6.caption := DMEscola.QbackNome6.value;
      lblcod6.caption := DMEscola.QbackCod6.value;
   end;
//---------------
   if DMEscola.QbackPc7.value = 'upload' then
   begin
      with msgClient7 do
      begin
         Abort;
         Host:= valorip7;
         port:= 6969;
         if trimRight(MsgClient7.PostIt ('')) = 'OK' then
         begin
            dxbutton7.Visible := true;
            dxbutton32.Visible := true;
            lblpc7.caption := nomepc7;
            lblip7.caption := valorip7
         end;
      end;
      MaskEdit7.Text := DMEscola.QbackT7.value;
      lblusuario7.caption := DMEscola.QbackCli7.value;
      lblnome7.caption := DMEscola.QbackNome7.value;
      lblcod7.caption := DMEscola.QbackCod7.value;
   end;
//---------------
   if DMEscola.QbackPc8.value = 'upload' then
   begin
      with msgClient8 do
      begin
         Abort;
         Host:= valorip8;
         port:= 6969;
         if trimRight(MsgClient8.PostIt ('')) = 'OK' then
         begin
            dxbutton8.Visible := true;
            dxbutton33.Visible := true;
            lblpc8.caption := nomepc1;
            lblip8.caption := valorip1
         end;
      end;
      MaskEdit8.Text := DMEscola.QbackT8.value;
      lblusuario8.caption := DMEscola.QbackCli8.value;
      lblnome8.caption := DMEscola.QbackNome8.value;
      lblcod8.caption := DMEscola.QbackCod8.value;
   end;
//-----------
   if DMEscola.QbackPc9.value = 'upload' then
   begin
      with msgClient9 do
      begin
         Abort;
         Host:= valorip9;
         port:= 6969;
         if trimRight(MsgClient9.PostIt ('')) = 'OK' then
         begin
            dxbutton9.Visible := true;
            dxbutton34.Visible := true;
            lblpc9.caption := nomepc9;
            lblip9.caption := valorip9
         end;
      end;
      MaskEdit9.Text := DMEscola.QbackT9.value;
      lblusuario9.caption := DMEscola.QbackCli9.value;
      lblnome9.caption := DMEscola.QbackNome9.value;
      lblcod9.caption := DMEscola.QbackCod9.value;
   end;
//------------
   if DMEscola.QbackPc10.value = 'upload' then
   begin
      with msgClient10 do
      begin
         Abort;
         Host:= valorip10;
         port:= 6969;
         if trimRight(MsgClient10.PostIt ('')) = 'OK' then
         begin
            dxbutton10.Visible := true;
            dxbutton35.Visible := true;
            lblpc10.caption := nomepc10;
            lblip10.caption := valorip10
         end;
      end;
      MaskEdit10.Text := DMEscola.QbackT10.value;
      lblusuario10.caption := DMEscola.QbackCli10.value;
      lblnome10.caption := DMEscola.QbackNome10.value;
      lblcod10.caption := DMEscola.QbackCod10.value;
   end;
//--------------
   if DMEscola.QbackPc11.value = 'upload' then
   begin
      with msgClient11 do
      begin
         Abort;
         Host:= valorip11;
         port:= 6969;
         if trimRight(MsgClient11.PostIt ('')) = 'OK' then
         begin
            dxbutton11.Visible := true;
            dxbutton36.Visible := true;
            lblpc11.caption := nomepc11;
            lblip11.caption := valorip11
         end;
      end;
      MaskEdit11.Text := DMEscola.QbackT11.value;
      lblusuario11.caption := DMEscola.QbackCli11.value;
      lblnome11.caption := DMEscola.QbackNome11.value;
      lblcod11.caption := DMEscola.QbackCod11.value;
      RxSwitch11.StateOn := true;
   end;
//------------
   if DMEscola.QbackPc12.value = 'upload' then
   begin
      with msgClient12 do
      begin
         Abort;
         Host:= valorip12;
         port:= 6969;
         if trimRight(MsgClient12.PostIt ('')) = 'OK' then
         begin
            dxbutton12.Visible := true;
            dxbutton37.Visible := true;
            lblpc12.caption := nomepc12;
            lblip12.caption := valorip12
         end;
      end;
      MaskEdit12.Text := DMEscola.QbackT12.value;
      lblusuario12.caption := DMEscola.QbackCli12.value;
      lblnome12.caption := DMEscola.QbackNome12.value;
      lblcod12.caption := DMEscola.QbackCod12.value;
   end;
//-------------
   if DMEscola.QbackPc13.value = 'upload' then
   begin
      with msgClient13 do
      begin
         Abort;
         Host:= valorip13;
         port:= 6969;
         if trimRight(MsgClient13.PostIt ('')) = 'OK' then
         begin
            dxbutton13.Visible := true;
            dxbutton38.Visible := true;
            lblpc13.caption := nomepc13;
            lblip13.caption := valorip13
         end;
      end;
      MaskEdit13.Text := DMEscola.QbackT13.value;
      lblusuario13.caption := DMEscola.QbackCli13.value;
      lblnome13.caption := DMEscola.QbackNome13.value;
      lblcod13.caption := DMEscola.QbackCod13.value;
   end;
//---------
   if DMEscola.QbackPc14.value = 'upload' then
   begin
      with msgClient14 do
      begin
         Abort;
         Host:= valorip14;
         port:= 6969;
         if trimRight(MsgClient14.PostIt ('')) = 'OK' then
         begin
            dxbutton14.Visible := true;
            dxbutton39.Visible := true;
            lblpc14.caption := nomepc14;
            lblip14.caption := valorip14
         end;
      end;
      MaskEdit14.Text := DMEscola.QbackT14.value;
      lblusuario14.caption := DMEscola.QbackCli14.value;
      lblnome14.caption := DMEscola.QbackNome14.value;
      lblcod14.caption := DMEscola.QbackCod14.value;
   end;
//-----------
   if DMEscola.QbackPc15.value = 'upload' then
   begin
      with msgClient15 do
      begin
         Abort;
         Host:= valorip15;
         port:= 6969;
         if trimRight(MsgClient15.PostIt ('')) = 'OK' then
         begin
            dxbutton15.Visible := true;
            dxbutton40.Visible := true;
            lblpc15.caption := nomepc15;
            lblip15.caption := valorip15
         end;
      end;
      MaskEdit15.Text := DMEscola.QbackT15.value;
      lblusuario15.caption := DMEscola.QbackCli15.value;
      lblnome15.caption := DMEscola.QbackNome15.value;
      lblcod15.caption := DMEscola.QbackCod15.value;
   end;
//--------
   if DMEscola.QbackPc16.value = 'upload' then
   begin
      with msgClient16 do
      begin
         Abort;
         Host:= valorip16;
         port:= 6969;
         if trimRight(MsgClient16.PostIt ('')) = 'OK' then
         begin
            dxbutton16.Visible := true;
            dxbutton41.Visible := true;
            lblpc16.caption := nomepc16;
            lblip16.caption := valorip16
         end;
      end;
      MaskEdit16.Text := DMEscola.QbackT16.value;
      lblusuario16.caption := DMEscola.QbackCli16.value;
      lblnome16.caption := DMEscola.QbackNome16.value;
      lblcod16.caption := DMEscola.QbackCod16.value;
   end;
//-----------
   if DMEscola.QbackPc17.value = 'upload' then
   begin
      with msgClient17 do
      begin
         Abort;
         Host:= valorip17;
         port:= 6969;
         if trimRight(MsgClient17.PostIt ('')) = 'OK' then
         begin
            dxbutton17.Visible := true;
            dxbutton42.Visible := true;
            lblpc17.caption := nomepc17;
            lblip17.caption := valorip17
         end;
      end;
      MaskEdit17.Text := DMEscola.QbackT17.value;
      lblusuario17.caption := DMEscola.QbackCli17.value;
      lblnome17.caption := DMEscola.QbackNome17.value;
      lblcod17.caption := DMEscola.QbackCod17.value;
   end;
//-----------
   if DMEscola.QbackPc18.value = 'upload' then
   begin
      with msgClient18 do
      begin
         Abort;
         Host:= valorip18;
         port:= 6969;
         if trimRight(MsgClient18.PostIt ('')) = 'OK' then
         begin
            dxbutton18.Visible := true;
            dxbutton43.Visible := true;
            lblpc18.caption := nomepc18;
            lblip18.caption := valorip18
         end;
      end;
      MaskEdit18.Text := DMEscola.QbackT18.value;
      lblusuario18.caption := DMEscola.QbackCli18.value;
      lblnome18.caption := DMEscola.QbackNome18.value;
      lblcod18.caption := DMEscola.QbackCod18.value;
   end;
//-----------
   if DMEscola.QbackPc19.value = 'upload' then
   begin
      with msgClient19 do
      begin
         Abort;
         Host:= valorip19;
         port:= 6969;
         if trimRight(MsgClient19.PostIt ('')) = 'OK' then
         begin
            dxbutton19.Visible := true;
            dxbutton44.Visible := true;
            lblpc19.caption := nomepc19;
            lblip19.caption := valorip19
         end;
      end;
      MaskEdit19.Text := DMEscola.QbackT19.value;
      lblusuario19.caption := DMEscola.QbackCli19.value;
      lblnome19.caption := DMEscola.QbackNome19.value;
      lblcod19.caption := DMEscola.QbackCod19.value;
   end;
//----------
   if DMEscola.QbackPc20.value = 'upload' then
   begin
      with msgClient20 do
      begin
         Abort;
         Host:= valorip20;
         port:= 6969;
         if trimRight(MsgClient20.PostIt ('')) = 'OK' then
         begin
            dxbutton20.Visible := true;
            dxbutton45.Visible := true;
            lblpc20.caption := nomepc20;
            lblip20.caption := valorip20
         end;
      end;
      MaskEdit20.Text := DMEscola.QbackT20.value;
      lblusuario20.caption := DMEscola.QbackCli20.value;
      lblnome20.caption := DMEscola.QbackNome20.value;
      lblcod20.caption := DMEscola.QbackCod20.value;
   end;
//--------------
   if DMEscola.QbackPc21.value = 'upload' then
   begin
      with msgClient21 do
      begin
         Abort;
         Host:= valorip21;
         port:= 6969;
         if trimRight(MsgClient21.PostIt ('')) = 'OK' then
         begin
            dxbutton21.Visible := true;
            dxbutton46.Visible := true;
            lblpc21.caption := nomepc21;
            lblip21.caption := valorip21
         end;
      end;
      MaskEdit21.Text := DMEscola.QbackT21.value;
      lblusuario21.caption := DMEscola.QbackCli21.value;
      lblnome21.caption := DMEscola.QbackNome21.value;
      lblcod21.caption := DMEscola.QbackCod21.value;
   end;
//------------
   if DMEscola.QbackPc22.value = 'upload' then
   begin
      with msgClient22 do
      begin
         Abort;
         Host:= valorip22;
         port:= 6969;
         if trimRight(MsgClient22.PostIt ('')) = 'OK' then
         begin
            dxbutton22.Visible := true;
            dxbutton47.Visible := true;
            lblpc22.caption := nomepc22;
            lblip22.caption := valorip22
         end;
      end;
      MaskEdit22.Text := DMEscola.QbackT22.value;
      lblusuario22.caption := DMEscola.QbackCli22.value;
      lblnome22.caption := DMEscola.QbackNome22.value;
      lblcod22.caption := DMEscola.QbackCod22.value;
   end;
//-----------
   if DMEscola.QbackPc23.value = 'upload' then
   begin
      with msgClient23 do
      begin
         Abort;
         Host:= valorip23;
         port:= 6969;
         if trimRight(MsgClient23.PostIt ('')) = 'OK' then
         begin
            dxbutton23.Visible := true;
            dxbutton48.Visible := true;
            lblpc23.caption := nomepc23;
            lblip23.caption := valorip23
         end;
      end;
      MaskEdit23.Text := DMEscola.QbackT23.value;
      lblusuario23.caption := DMEscola.QbackCli23.value;
      lblnome23.caption := DMEscola.QbackNome23.value;
      lblcod23.caption := DMEscola.QbackCod23.value;
   end;
//---------
   if DMEscola.QbackPc24.value = 'upload' then
   begin
      with msgClient24 do
      begin
         Abort;
         Host:= valorip24;
         port:= 6969;
         if trimRight(MsgClient24.PostIt ('')) = 'OK' then
         begin
            dxbutton24.Visible := true;
            dxbutton49.Visible := true;
            lblpc24.caption := nomepc24;
            lblip24.caption := valorip24
         end;
      end;
      MaskEdit24.Text := DMEscola.QbackT24.value;
      lblusuario24.caption := DMEscola.QbackCli24.value;
      lblnome24.caption := DMEscola.QbackNome24.value;
      lblcod24.caption := DMEscola.QbackCod24.value;
   end;
//-------
end;

procedure TFrmgerenciamento.RxLookupEdit10KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod10.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod10.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit10.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText10.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText10.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit10.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit10.Text := '';

end;

end;

procedure TFrmgerenciamento.RxLookupEdit9KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod9.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod9.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit9.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText9.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText9.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit9.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit9.Text := '';
end;

end;

procedure TFrmgerenciamento.RxSwitch13On(Sender: TObject);
begin
   if r13 = 'restore' then
   begin
      timicro13.Enabled := true;
      ti13 := StrToTime(lbltempomicro13.Caption);
      on13.Font.Color := clBlue;
      off13.Font.Color := clAqua;
      pnlpc13.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit13.Text = '  :  ' then
      begin
         RXSwitch13.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc13+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit13.Text, 1);
         EnviarComando13;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando13;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando13;
      //Parte executada localmente
         s13 := 'upload';
         timicro13.Enabled := true;
         lbltotalmicro13.caption := '0,00';
         ti13 := StrToTime('00:00:00');
         on13.Font.Color := clBlue;
         off13.Font.Color := clAqua;
         pnlpc13.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch13';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch24On(Sender: TObject);
begin
   if r24 = 'restore' then
   begin
      timicro24.Enabled := true;
      ti24 := StrToTime(lbltempomicro24.Caption);
      on24.Font.Color := clBlue;
      off24.Font.Color := clAqua;
      pnlpc24.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit24.Text = '  :  ' then
      begin
         RXSwitch24.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc24+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit24.Text, 1);
         EnviarComando24;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando24;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando24;
      //Parte executada localmente
         s24 := 'upload';
         timicro24.Enabled := true;
         lbltotalmicro24.caption := '0,00';
         ti24 := StrToTime('00:00:00');
         on24.Font.Color := clBlue;
         off24.Font.Color := clAqua;
         pnlpc24.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch24';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch23On(Sender: TObject);
begin
   if r23 = 'restore' then
   begin
      timicro23.Enabled := true;
      ti23 := StrToTime(lbltempomicro23.Caption);
      on23.Font.Color := clBlue;
      off23.Font.Color := clAqua;
      pnlpc23.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit23.Text = '  :  ' then
      begin
         RXSwitch23.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc23+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit23.Text, 1);
         EnviarComando23;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando23;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando23;
      //Parte executada localmente
         s23 := 'upload';
         timicro23.Enabled := true;
         lbltotalmicro23.caption := '0,00';
         ti23 := StrToTime('00:00:00');
         on23.Font.Color := clBlue;
         off23.Font.Color := clAqua;
         pnlpc23.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch23';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch22On(Sender: TObject);
begin
   if r22 = 'restore' then
   begin
      timicro22.Enabled := true;
      ti22 := StrToTime(lbltempomicro22.Caption);
      on22.Font.Color := clBlue;
      off22.Font.Color := clAqua;
      pnlpc22.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit22.Text = '  :  ' then
      begin
         RXSwitch22.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc22+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit22.Text, 1);
         EnviarComando22;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando22;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando22;
      //Parte executada localmente
         s22 := 'upload';
         timicro22.Enabled := true;
         lbltotalmicro22.caption := '0,00';
         ti22 := StrToTime('00:00:00');
         on22.Font.Color := clBlue;
         off22.Font.Color := clAqua;
         pnlpc22.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch22';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch20On(Sender: TObject);
begin
   if r20 = 'restore' then
   begin
      timicro20.Enabled := true;
      ti20 := StrToTime(lbltempomicro20.Caption);
      on20.Font.Color := clBlue;
      off20.Font.Color := clAqua;
      pnlpc20.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit20.Text = '  :  ' then
      begin
         RXSwitch20.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc20+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit20.Text, 1);
         EnviarComando20;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando20;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando20;
      //Parte executada localmente
         s20 := 'upload';
         timicro20.Enabled := true;
         lbltotalmicro20.caption := '0,00';
         ti20 := StrToTime('00:00:00');
         on20.Font.Color := clBlue;
         off20.Font.Color := clAqua;
         pnlpc20.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch20';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch21On(Sender: TObject);
begin
   if r21 = 'restore' then
   begin
      timicro21.Enabled := true;
      ti21 := StrToTime(lbltempomicro21.Caption);
      on21.Font.Color := clBlue;
      off21.Font.Color := clAqua;
      pnlpc21.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit21.Text = '  :  ' then
      begin
         RXSwitch21.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc21+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit21.Text, 1);
         EnviarComando21;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando21;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando21;
      //Parte executada localmente
         s21 := 'upload';
         timicro21.Enabled := true;
         lbltotalmicro21.caption := '0,00';
         ti21 := StrToTime('00:00:00');
         on21.Font.Color := clBlue;
         off21.Font.Color := clAqua;
         pnlpc21.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch21';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch14On(Sender: TObject);
begin
   if r14 = 'restore' then
   begin
      timicro14.Enabled := true;
      ti14 := StrToTime(lbltempomicro14.Caption);
      on14.Font.Color := clBlue;
      off14.Font.Color := clAqua;
      pnlpc14.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit14.Text = '  :  ' then
      begin
         RXSwitch14.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc14+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit14.Text, 1);
         EnviarComando14;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando14;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando14;
      //Parte executada localmente
         s14 := 'upload';
         timicro14.Enabled := true;
         lbltotalmicro14.caption := '0,00';
         ti14 := StrToTime('00:00:00');
         on14.Font.Color := clBlue;
         off14.Font.Color := clAqua;
         pnlpc14.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch14';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch12On(Sender: TObject);
begin
   if r12 = 'restore' then
   begin
      timicro12.Enabled := true;
      ti12 := StrToTime(lbltempomicro12.Caption);
      on12.Font.Color := clBlue;
      off12.Font.Color := clAqua;
      pnlpc12.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit12.Text = '  :  ' then
      begin
         RXSwitch12.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc12+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit12.Text, 1);
         EnviarComando12;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando12;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando12;
         //Parte executada localmente
         s12 := 'upload';
         timicro12.Enabled := true;
         lbltotalmicro12.caption := '0,00';
         ti12 := StrToTime('00:00:00');
         on12.Font.Color := clBlue;
         off12.Font.Color := clAqua;
         pnlpc12.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch12';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.Button1Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando;
end;

procedure TFrmgerenciamento.RxSwitch1Off(Sender: TObject);
begin
   if MaskEdit1.Text <> '  :  ' then
   begin
      if rxof1 = 'sim' then
      begin
         s1 := '';
         timicro1.Enabled := false;
         on1.Font.Color := clAqua;
         off1.Font.Color := clBlue;
         pnlpc1.color := clBtnFace;
         gifpc1.visible := true;
         MaskEdit1.Text := '';
         lbltempomicro1.Caption := '00:00:00';
         lbltotalmicro1.Caption := '0,00';
         lblusuario1.caption := '';
         lblgrupo1.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando;
      //Parte executada Localmente
         s1 := '';
         timicro1.Enabled := false;
         on1.Font.Color := clAqua;
         off1.Font.Color := clBlue;
         pnlpc1.color := clBtnFace;
         gifpc1.visible := true;
         chamarconta := 'RxSwitch1';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit1.Text := '';
         lbltempomicro1.Caption := '00:00:00';
         lbltotalmicro1.Caption := '0,00';
         lblusuario1.caption := '';
         lblgrupo1.Caption := ''
      end;
      rxof1 := '';
   end;
end;

procedure TFrmgerenciamento.MsgClient1Connect(Sender: TObject);
begin
  msgClient1.TimeOut:= 90000;
  msgClient1.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.OnShow(Sender: TObject);
begin
  nomepc1 := DMEscola.QipPc1.Text;
  nomepc2 := DMEscola.QipPc2.Text;
  nomepc3 := DMEscola.QipPc3.Text;
  nomepc4 := DMEscola.QipPc4.Text;
  nomepc5 := DMEscola.QipPc5.Text;
  nomepc6 := DMEscola.QipPc6.Text;
  nomepc7 := DMEscola.QipPc7.Text;
  nomepc8 := DMEscola.QipPc8.Text;
  nomepc9 := DMEscola.QipPc9.Text;
  nomepc10 := DMEscola.QipPc10.Text;
  nomepc11 := DMEScola.QipPc11.Text;
  nomepc12 := DMEscola.QipPc12.Text;
  nomepc13 := DMEscola.QipPc13.Text;
  nomepc14 := DMEscola.QipPc14.Text;
  nomepc15 := DMEscola.QipPc15.Text;
  nomepc16 := DMEscola.QipPc16.Text;
  nomepc17 := DMEscola.QipPc17.Text;
  nomepc18 := DMEscola.QipPc18.Text;
  nomepc19 := DMEscola.QipPc19.Text;
  nomepc20 := DMEscola.QipPc20.Text;
  nomepc21 := DMEscola.QipPc21.Text;
  nomepc22 := DMEscola.QipPc22.Text;
  nomepc23 := DMEScola.QipPc23.Text;
  nomepc24 := DMEscola.QipPc24.Text;
  valorip1 := DMEscola.QipIp1.Text;
  valorip2 := DMEscola.QipIp2.Text;
  valorip3 := DMEscola.QipIp3.Text;
  valorip4 := DMEscola.QipIp4.Text;
  valorip5 := DMEscola.QipIp5.Text;
  valorip6 := DMEscola.QipIp6.Text;
  valorip7 := DMEscola.QipIp7.Text;
  valorip8 := DMEscola.QipIp8.Text;
  valorip9 := DMEscola.QipIp9.Text;
  valorip10 := DMEscola.QipIp10.Text;
  valorip11 := DMEscola.QipIp11.Text;
  valorip12 := DMEscola.QipIp12.Text;
  valorip13 := DMEscola.QipIp13.Text;
  valorip14 := DMEscola.QipIp14.Text;
  valorip15 := DMEscola.QipIp15.Text;
  valorip16 := DMEscola.QipIp16.Text;
  valorip17 := DMEscola.QipIp17.Text;
  valorip18 := DMEscola.QipIp18.Text;
  valorip19 := DMEscola.QipIp19.Text;
  valorip20 := DMEscola.QipIp20.Text;
  valorip21 := DMEscola.QipIp21.Text;
  valorip22 := DMEscola.QipIp22.Text;
  valorip23 := DMEscola.QipIp23.Text;
  valorip24 := DMEscola.QipIp24.Text;
  //======
  lblcomp1.caption := nomepc1;
  lblcomp2.caption := nomepc2;
  lblcomp3.caption := nomepc3;
  lblcomp4.caption := nomepc4;
  lblcomp5.caption := nomepc5;
  lblcomp6.caption := nomepc6;
  lblcomp7.caption := nomepc7;
  lblcomp8.caption := nomepc8;
  lblcomp9.caption := nomepc9;
  lblcomp10.caption := nomepc10;
  lblcomp11.caption := nomepc11;
  lblcomp12.caption := nomepc12;
  lblcomp13.caption := nomepc13;
  lblcomp14.caption := nomepc14;
  lblcomp15.caption := nomepc15;
  lblcomp16.caption := nomepc16;
  lblcomp17.caption := nomepc17;
  lblcomp18.caption := nomepc18;
  lblcomp19.caption := nomepc19;
  lblcomp20.caption := nomepc20;
  lblcomp21.caption := nomepc21;
  lblcomp22.caption := nomepc22;
  lblcomp23.caption := nomepc23;
  lblcomp24.caption := nomepc24;
  dxButton25.Visible := false;
  dxButton26.Visible := false;
  dxButton27.Visible := false;
  dxButton29.Visible := false;
  dxButton30.Visible := false;
  dxButton31.Visible := false;
  dxButton32.Visible := false;
  dxButton33.Visible := false;
  dxButton34.Visible := false;
  dxButton35.Visible := false;
  dxButton36.Visible := false;
  dxButton37.Visible := false;
  dxButton38.Visible := false;
  dxButton39.Visible := false;
  dxButton40.Visible := false;
  dxButton41.Visible := false;
  dxButton42.Visible := false;
  dxButton43.Visible := false;
  dxButton44.Visible := false;
  dxButton45.Visible := false;
  dxButton46.Visible := false;
  dxButton47.Visible := false;
  dxButton48.Visible := false;
  dxButton49.Visible := false;
  if ini = 'sim' then
     recuperar(Sender);
  Timer1.Enabled := true;
end;

procedure TFrmgerenciamento.MsgClient2Connect(Sender: TObject);
begin
  msgClient2.TimeOut:= 90000;
  msgClient2.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Timer1.Enabled := false;
   Action := CaFree;
end;

procedure TFrmgerenciamento.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   if MessageDlg('            Deseja realmente fechar'+#13+'Todas as estações serão desconectadas', MtConfirmation, [mbyes, mbno], 0) = mrno then
      CanClose := false
   else
   begin
      DMEscola.Qback.Edit;
      DMEscola.QBack.Delete;
      DMEScola.Qback.Edit;
      DMEscola.QbackPc1.value :=  s1;
      DMEscola.QbackPc2.value :=  s2;
      DMEscola.QbackPc3.value :=  s3;
      DMEscola.QbackPc4.value :=  s4;
      DMEscola.QbackPc5.value :=  s5;
      DMEscola.QbackPc6.value :=  s6;
      DMEscola.QbackPc7.value :=  s7;
      DMEscola.QbackPc8.value :=  s8;
      DMEscola.QbackPc9.value :=  s9;
      DMEscola.QbackPc10.value :=  s10;
      DMEscola.QbackPc11.value :=  s11;
      DMEscola.QbackPc12.value :=  s12;
      DMEscola.QbackPc13.value :=  s13;
      DMEscola.QbackPc14.value :=  s14;
      DMEscola.QbackPc15.value :=  s15;
      DMEscola.QbackPc16.value :=  s16;
      DMEscola.QbackPc17.value :=  s17;
      DMEscola.QbackPc18.value :=  s18;
      DMEscola.QbackPc19.value :=  s19;
      DMEscola.QbackPc20.value :=  s20;
      DMEscola.QbackPc21.value :=  s21;
      DMEscola.QbackPc22.value :=  s22;
      DMEscola.QbackPc23.value :=  s23;
      DMEscola.QbackPc24.value :=  s24;
      DMEscola.QbackCli1.value := lblusuario1.caption;
      DMEscola.QbackCli2.value := lblusuario2.caption;
      DMEscola.QbackCli3.value := lblusuario3.caption;
      DMEscola.QbackCli4.value := lblusuario4.caption;
      DMEscola.QbackCli5.value := lblusuario5.caption;
      DMEscola.QbackCli6.value := lblusuario6.caption;
      DMEscola.QbackCli7.value := lblusuario7.caption;
      DMEscola.QbackCli8.value := lblusuario8.caption;
      DMEscola.QbackCli9.value := lblusuario9.caption;
      DMEscola.QbackCli10.value := lblusuario10.caption;
      DMEscola.QbackCli11.value := lblusuario11.caption;
      DMEscola.QbackCli12.value := lblusuario12.caption;
      DMEscola.QbackCli13.value := lblusuario13.caption;
      DMEscola.QbackCli14.value := lblusuario14.caption;
      DMEscola.QbackCli15.value := lblusuario15.caption;
      DMEscola.QbackCli16.value := lblusuario16.caption;
      DMEscola.QbackCli17.value := lblusuario17.caption;
      DMEscola.QbackCli18.value := lblusuario18.caption;
      DMEscola.QbackCli19.value := lblusuario19.caption;
      DMEscola.QbackCli20.value := lblusuario20.caption;
      DMEscola.QbackCli21.value := lblusuario21.caption;
      DMEscola.QbackCli22.value := lblusuario22.caption;
      DMEscola.QbackCli23.value := lblusuario23.caption;
      DMEscola.QbackCli24.value := lblusuario24.caption;
      DMEscola.QbackT1.value := MaskEdit1.Text;
      DMEscola.QbackT2.value := MaskEdit2.Text;
      DMEscola.QbackT3.value := MaskEdit3.Text;
      DMEscola.QbackT4.value := MaskEdit4.Text;
      DMEscola.QbackT5.value := MaskEdit5.Text;
      DMEscola.QbackT6.value := MaskEdit6.Text;
      DMEscola.QbackT7.value := MaskEdit7.Text;
      DMEscola.QbackT8.value := MaskEdit8.Text;
      DMEscola.QbackT9.value := MaskEdit9.Text;
      DMEscola.QbackT10.value := MaskEdit10.Text;
      DMEscola.QbackT11.value := MaskEdit11.Text;
      DMEscola.QbackT12.value := MaskEdit12.Text;
      DMEscola.QbackT13.value := MaskEdit13.Text;
      DMEscola.QbackT14.value := MaskEdit14.Text;
      DMEscola.QbackT15.value := MaskEdit15.Text;
      DMEscola.QbackT16.value := MaskEdit16.Text;
      DMEscola.QbackT17.value := MaskEdit17.Text;
      DMEscola.QbackT18.value := MaskEdit18.Text;
      DMEscola.QbackT19.value := MaskEdit19.Text;
      DMEscola.QbackT20.value := MaskEdit20.Text;
      DMEscola.QbackT21.value := MaskEdit21.Text;
      DMEscola.QbackT22.value := MaskEdit22.Text;
      DMEscola.QbackT23.value := MaskEdit23.Text;
      DMEscola.QbackT24.value := MaskEdit24.Text;
      DMEscola.QbackNome1.value := lblnome1.caption;
      DMEscola.QbackNome2.value := lblnome2.caption;
      DMEscola.QbackNome3.value := lblnome3.caption;
      DMEscola.QbackNome4.value := lblnome4.caption;
      DMEscola.QbackNome5.value := lblnome5.caption;
      DMEscola.QbackNome6.value := lblnome6.caption;
      DMEscola.QbackNome7.value := lblnome7.caption;
      DMEscola.QbackNome8.value := lblnome8.caption;
      DMEscola.QbackNome9.value := lblnome9.caption;
      DMEscola.QbackNome10.value := lblnome10.caption;
      DMEscola.QbackNome11.value := lblnome11.caption;
      DMEscola.QbackNome12.value := lblnome12.caption;
      DMEscola.QbackNome13.value := lblnome13.caption;
      DMEscola.QbackNome14.value := lblnome14.caption;
      DMEscola.QbackNome15.value := lblnome15.caption;
      DMEscola.QbackNome16.value := lblnome16.caption;
      DMEscola.QbackNome17.value := lblnome17.caption;
      DMEscola.QbackNome18.value := lblnome18.caption;
      DMEscola.QbackNome19.value := lblnome19.caption;
      DMEscola.QbackNome20.value := lblnome20.caption;
      DMEscola.QbackNome21.value := lblnome21.caption;
      DMEscola.QbackNome22.value := lblnome22.caption;
      DMEscola.QbackNome23.value := lblnome23.caption;
      DMEscola.QbackNome24.value := lblnome24.caption;
      DMEscola.QbackCod1.value := (lblcod1.caption);
      DMEscola.QbackCod2.value := (lblcod2.caption);
      DMEscola.QbackCod3.value := (lblcod3.caption);
      DMEscola.QbackCod4.value := (lblcod4.caption);
      DMEscola.QbackCod5.value := (lblcod5.caption);
      DMEscola.QbackCod6.value := (lblcod6.caption);
      DMEscola.QbackCod7.value := (lblcod7.caption);
      DMEscola.QbackCod8.value := (lblcod8.caption);
      DMEscola.QbackCod9.value := (lblcod9.caption);
      DMEscola.QbackCod10.value := (lblcod10.caption);
      DMEscola.QbackCod11.value := (lblcod11.caption);
      DMEscola.QbackCod12.value := (lblcod12.caption);
      DMEscola.QbackCod13.value := (lblcod13.caption);
      DMEscola.QbackCod14.value := (lblcod14.caption);
      DMEscola.QbackCod15.value := (lblcod15.caption);
      DMEscola.QbackCod16.value := (lblcod16.caption);
      DMEscola.QbackCod17.value := (lblcod17.caption);
      DMEscola.QbackCod18.value := (lblcod18.caption);
      DMEscola.QbackCod19.value := (lblcod19.caption);
      DMEscola.QbackCod20.value := (lblcod20.caption);
      DMEscola.QbackCod21.value := (lblcod21.caption);
      DMEscola.QbackCod22.value := (lblcod22.caption);
      DMEscola.QbackCod23.value := (lblcod23.caption);
      DMEscola.QbackCod24.value := (lblcod24.caption);
      DMEscola.Qback.Post
   end;
end;

procedure TFrmgerenciamento.MsgClient3Connect(Sender: TObject);
begin
  msgClient3.TimeOut:= 90000;
  msgClient3.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient4Connect(Sender: TObject);
begin
  msgClient4.TimeOut:= 90000;
  msgClient4.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient5Connect(Sender: TObject);
begin
  msgClient5.TimeOut:= 90000;
  msgClient5.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient6Connect(Sender: TObject);
begin
  msgClient6.TimeOut:= 90000;
  msgClient6.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient7Connect(Sender: TObject);
begin
  msgClient7.TimeOut:= 90000;
  msgClient7.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient8Connect(Sender: TObject);
begin
  msgClient8.TimeOut:= 90000;
  msgClient8.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient9Connect(Sender: TObject);
begin
  msgClient9.TimeOut:= 90000;
  msgClient9.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient10Connect(Sender: TObject);
begin
  msgClient10.TimeOut:= 90000;
  msgClient10.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient1ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc1.visible := false;
   dxButton1.Visible := true;
   imgdeslig1.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient2ConnectionFailed(Sender: TObject);
begin
  pnlpc2.visible := false;
  imgdeslig2.Visible := true;
  dxButton2.visible := true;
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
end;

procedure TFrmgerenciamento.MsgClient3ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc3.visible := false;
   dxButton3.Visible := true;
   imgdeslig3.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient4ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc4.visible := false;
   dxButton4.Visible := true;
   imgdeslig4.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient5ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc5.visible := false;
   dxButton5.Visible := true;
   imgdeslig5.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient6ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc6.visible := false;
   dxButton6.Visible := true;
   imgdeslig6.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient7ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc7.visible := false;
   dxButton7.Visible := true;
   imgdeslig7.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient8ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc8.visible := false;
   dxButton8.Visible := true;
   imgdeslig8.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient9ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc9.visible := false;
   dxButton9.Visible := true;
   imgdeslig9.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient10ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc10.visible := false;
   dxButton10.Visible := true;
   imgdeslig10.Visible := true;
end;

procedure TFrmgerenciamento.RxSwitch1On(Sender: TObject);
begin
   if r1 = 'restore' then
   begin
      timicro1.Enabled := true;
//      ti1 := StrToTime(lbltempomicro1.Caption);
      on1.Font.Color := clBlue;
      off1.Font.Color := clAqua;
      pnlpc1.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit1.Text = '  :  ' then
      begin
        RXSwitch1.StateOn := false;
        ShowMessage('Não será possível liberar a estação '+nomepc1+' se não for passado o tempo prévio!')
      end
      else
      begin
   //Parte enviada para estãção
        AdicionarParametro (cTempo, 0);
        AdicionarParametro (MaskEdit1.Text, 1);
        EnviarComando;
        AdicionarParametro (cFechaprotege, 0);
        EnviarComando;
        AdicionarParametro (cCalcular, 0);
        AdicionarParametro (Label28.Caption, 1);
        EnviarComando;
   //Parte executada localmente
        s1 := 'upload';
        timicro1.Enabled := true;
        lbltotalmicro1.caption := '0,00';
        ti1 := StrToTime('00:00:00');
        on1.Font.Color := clBlue;
        off1.Font.Color := clAqua;
        pnlpc1.color := $0053A6A6;
        chamarcliente := 'RxSwitch1';
        FrmLocateCli := TfrmLocateCli.Create(self);
        FrmLocateCli.Show
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch2On(Sender: TObject);
begin
   if r2 = 'restore' then
   begin
      timicro2.Enabled := true;
//      ti2 := StrToTime(lbltempomicro2.Caption);
      on2.Font.Color := clBlue;
      off2.Font.Color := clAqua;
      pnlpc2.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit2.Text = '  :  ' then
      begin
         RXSwitch2.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc2+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit2.Text, 1);
         EnviarComando2;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando2;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando2;
      //Parte executada localmente
         s2 := 'upload';
         timicro2.Enabled := true;
         lbltotalmicro2.caption := '0,00';
         ti2 := StrToTime('00:00:00');
         on2.Font.Color := clBlue;
         off2.Font.Color := clAqua;
         pnlpc2.Color := $0053A6A6;
         chamarcliente := 'RxSwitch2';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch3On(Sender: TObject);
begin
   if r3 = 'restore' then
   begin
      timicro3.Enabled := true;
      ti3 := StrToTime(lbltempomicro3.Caption);
      on3.Font.Color := clBlue;
      off3.Font.Color := clAqua;
      pnlpc3.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit3.Text = '  :  ' then
      begin
         RXSwitch3.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc3+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit3.Text, 1);
         EnviarComando3;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando3;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando3;
      //Parte executada localmente
         s3 := 'upload';
         timicro3.Enabled := true;
         lbltotalmicro3.caption := '0,00';
         ti3 := StrToTime('00:00:00');
         on3.Font.Color := clBlue;
         off3.Font.Color := clAqua;
         pnlpc3.color := $0053A6A6;
         chamarcliente := 'RxSwitch3';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch4On(Sender: TObject);
begin
   if r4 = 'restore' then
   begin
      timicro4.Enabled := true;
      ti4 := StrToTime(lbltempomicro4.Caption);
      on4.Font.Color := clBlue;
      off4.Font.Color := clAqua;
      pnlpc4.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit4.Text = '  :  ' then
      begin
         RXSwitch4.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc4+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit4.Text, 1);
         EnviarComando4;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando4;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando4;
      //Parte executada localmente
         s4 := 'upload';
         timicro4.Enabled := true;
         lbltotalmicro4.caption := '0,00';
         ti4 := StrToTime('00:00:00');
         on4.Font.Color := clBlue;
         off4.Font.Color := clAqua;
         pnlpc4.color := $0053A6A6;
         chamarcliente := 'RxSwitch4';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch5On(Sender: TObject);
begin
   if r5 = 'restore' then
   begin
      timicro5.Enabled := true;
      ti5 := StrToTime(lbltempomicro5.Caption);
      on5.Font.Color := clBlue;
      off5.Font.Color := clAqua;
      pnlpc5.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit5.Text = '  :  ' then
      begin
         RXSwitch5.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc5+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit5.Text, 1);
         EnviarComando5;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando5;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando5;
     //Parte executada localmente
         s5 := 'upload';
         timicro5.Enabled := true;
         lbltotalmicro5.caption := '0,00';
         ti5 := StrToTime('00:00:00');
         on5.Font.Color := clBlue;
         off5.Font.Color := clAqua;
         pnlpc5.color := $0053A6A6;
         chamarcliente := 'RxSwitch5';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch6On(Sender: TObject);
begin
   if r6 = 'restore' then
   begin
      timicro6.Enabled := true;
      ti6 := StrToTime(lbltempomicro6.Caption);
      on6.Font.Color := clBlue;
      off6.Font.Color := clAqua;
      pnlpc6.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit6.Text = '  :  ' then
      begin
         RXSwitch6.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc6+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit1.Text, 1);
         EnviarComando;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando6;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando6;
     //Parte executada localmente
         s6 := 'upload';
         timicro6.Enabled := true;
         lbltotalmicro6.caption := '0,00';
         ti6 := StrToTime('00:00:00');
         on6.Font.Color := clBlue;
         off6.Font.Color := clAqua;
         pnlpc6.color := $0053A6A6;
         chamarcliente := 'RxSwitch6';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch7On(Sender: TObject);
begin
   if r7 = 'restore' then
   begin
      timicro7.Enabled := true;
      ti7 := StrToTime(lbltempomicro7.Caption);
      on7.Font.Color := clBlue;
      off7.Font.Color := clAqua;
      pnlpc7.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit7.Text = '  :  ' then
      begin
         RXSwitch7.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc7+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit7.Text, 1);
         EnviarComando7;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando7;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando7;
      //Parte executada localmente
         s7 := 'upload';
         timicro7.Enabled := true;
         lbltotalmicro7.caption := '0,00';
         ti7 := StrToTime('00:00:00');
         on7.Font.Color := clBlue;
         off7.Font.Color := clAqua;
         chamarcliente := 'RxSwitch7';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch8On(Sender: TObject);
begin
   if r8 = 'restore' then
   begin
      timicro8.Enabled := true;
      ti8 := StrToTime(lbltempomicro8.Caption);
      on8.Font.Color := clBlue;
      off8.Font.Color := clAqua;
      pnlpc8.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit8.Text = '  :  ' then
      begin
         RXSwitch8.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc8+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit8.Text, 1);
         EnviarComando8;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando8;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando8;
      //Parte executada localmente
         s8 := 'upload';
         timicro8.Enabled := true;
         lbltotalmicro8.caption := '0,00';
         ti8 := StrToTime('00:00:00');
         on8.Font.Color := clBlue;
         off8.Font.Color := clAqua;
         pnlpc8.color := $0053A6A6;
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch9On(Sender: TObject);
begin
   if r9 = 'restore' then
   begin
      timicro9.Enabled := true;
      ti9 := StrToTime(lbltempomicro9.Caption);
      on9.Font.Color := clBlue;
      off9.Font.Color := clAqua;
      pnlpc9.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit9.Text = '  :  ' then
      begin
         RXSwitch9.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc9+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit9.Text, 1);
         EnviarComando9;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando9;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando9;
      //Parte executada localmente
         s9 := 'upload';
         timicro9.Enabled := true;
         lbltotalmicro9.caption := '0,00';
         ti9 := StrToTime('00:00:00');
         on9.Font.Color := clBlue;
         off9.Font.Color := clAqua;
         pnlpc9.color := $0053A6A6;
         chamarcliente := 'RxSwitch9';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch10On(Sender: TObject);
begin
   if r10 = 'restore' then
   begin
      timicro10.Enabled := true;
      ti10 := StrToTime(lbltempomicro10.Caption);
      on10.Font.Color := clBlue;
      off10.Font.Color := clAqua;
      pnlpc10.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit10.Text = '  :  ' then
      begin
         RXSwitch10.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc10+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit10.Text, 1);
         EnviarComando10;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando10;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando10;
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit10.Text, 1);
         EnviarComando10;
     //Parte executada localmente
         s10 := 'upload';
         timicro10.Enabled := true;
         lbltotalmicro10.caption := '0,00';
         ti10 := StrToTime('00:00:00');
         on10.Font.Color := clBlue;
         off10.Font.Color := clAqua;
         pnlpc10.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch10';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.Button4Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando2;
end;

procedure TFrmgerenciamento.Button7Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando3;
end;

procedure TFrmgerenciamento.Button10Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando4;
end;

procedure TFrmgerenciamento.Button13Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando5;
end;

procedure TFrmgerenciamento.Button16Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando6;
end;

procedure TFrmgerenciamento.Button19Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando7;
end;

procedure TFrmgerenciamento.Button22Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando8;
end;

procedure TFrmgerenciamento.Button25Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando9;
end;

procedure TFrmgerenciamento.Button28Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando10;
end;

procedure TFrmgerenciamento.tiMicro1Timer(Sender: TObject);
begin
   ti1 := ti1 + StrToTime('00:00:01');
   lbltempomicro1.caption := TimeToStr(ti1);
   lbltotalmicro1.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti1),1,2))*60) + StrToInt(Copy(TimeToStr(ti1),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit1.Text <> '00:00' then
   begin
      if ti1 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit1.Text)))) then
      begin
         if gifpc1.visible = true then
         begin
            pnlpc1.Color := clRed;
            gifpc1.visible := false
         end
         else
         begin
            pnlpc1.Color := clBtnFace;
            gifpc1.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc1.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro2Timer(Sender: TObject);
begin
   ti2 := ti2 + StrToTime('00:00:01');
   lbltempomicro2.caption := TimeToStr(ti2);
   lbltotalmicro2.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti2),1,2))*60) + StrToInt(Copy(TimeToStr(ti2),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit2.Text <> '00:00' then
   begin
      if ti2 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit2.Text)))) then
      begin
         if gifpc2.visible = true then
         begin
            pnlpc2.Color := clRed;
            gifpc2.visible := false
         end
         else
         begin
            pnlpc2.Color := clBtnFace;
            gifpc2.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc2.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro3Timer(Sender: TObject);
begin
   ti3 := ti3 + StrToTime('00:00:01');
   lbltempomicro3.caption := TimeToStr(ti3);
   lbltotalmicro3.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti3),1,2))*60) + StrToInt(Copy(TimeToStr(ti3),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit3.Text <> '00:00' then
   begin
      if ti3 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit3.Text)))) then
      begin
         if gifpc3.visible = true then
         begin
            pnlpc3.Color := clRed;
            gifpc3.visible := false
         end
         else
         begin
            pnlpc3.Color := clBtnFace;
            gifpc3.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc3.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro4Timer(Sender: TObject);
begin
   ti4 := ti4 + StrToTime('00:00:01');
   lbltempomicro4.caption := TimeToStr(ti4);
   lbltotalmicro4.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti4),1,2))*60) + StrToInt(Copy(TimeToStr(ti4),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit4.Text <> '00:00' then
   begin
      if ti4 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit4.Text)))) then
      begin
         if gifpc4.visible = true then
         begin
            pnlpc4.Color := clRed;
            gifpc4.visible := false
         end
         else
         begin
            pnlpc4.Color := clBtnFace;
            gifpc4.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc4.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro5Timer(Sender: TObject);
begin
   ti5 := ti5 + StrToTime('00:00:01');
   lbltempomicro5.caption := TimeToStr(ti5);
   lbltotalmicro5.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti5),1,2))*60) + StrToInt(Copy(TimeToStr(ti5),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit5.Text <> '00:00' then
   begin
      if ti5 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit5.Text)))) then
      begin
         if gifpc5.visible = true then
         begin
            pnlpc5.Color := clRed;
            gifpc5.visible := false
         end
         else
         begin
            pnlpc5.Color := clBtnFace;
            gifpc5.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc5.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro6Timer(Sender: TObject);
begin
   ti6 := ti6 + StrToTime('00:00:01');
   lbltempomicro6.caption := TimeToStr(ti6);
   lbltotalmicro6.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti6),1,2))*60) + StrToInt(Copy(TimeToStr(ti6),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit6.Text <> '00:00' then
   begin
      if ti6 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit6.Text)))) then
      begin
         if gifpc6.visible = true then
         begin
            pnlpc6.Color := clRed;
            gifpc6.visible := false
         end
         else
         begin
            pnlpc6.Color := clBtnFace;
            gifpc6.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc6.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro7Timer(Sender: TObject);
begin
   ti7 := ti7 + StrToTime('00:00:01');
   lbltempomicro7.caption := TimeToStr(ti7);
   lbltotalmicro7.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti7),1,2))*60) + StrToInt(Copy(TimeToStr(ti7),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit7.Text <> '00:00' then
   begin
      if ti7 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit7.Text)))) then
      begin
         if gifpc7.visible = true then
         begin
            pnlpc7.Color := clRed;
            gifpc7.visible := false
         end
         else
         begin
            pnlpc7.Color := clBtnFace;
            gifpc7.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc7.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro8Timer(Sender: TObject);
begin
   ti8 := ti8 + StrToTime('00:00:01');
   lbltempomicro8.caption := TimeToStr(ti8);
   lbltotalmicro8.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti8),1,2))*60) + StrToInt(Copy(TimeToStr(ti8),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit8.Text <> '00:00' then
   begin
      if ti8 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit8.Text)))) then
      begin
         if gifpc8.visible = true then
         begin
            pnlpc8.Color := clRed;
            gifpc8.visible := false
         end
         else
         begin
            pnlpc8.Color := clBtnFace;
            gifpc8.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc8.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro9Timer(Sender: TObject);
begin
   ti9 := ti9 + StrToTime('00:00:01');
   lbltempomicro9.caption := TimeToStr(ti9);
   lbltotalmicro9.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti9),1,2))*60) + StrToInt(Copy(TimeToStr(ti9),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit9.Text <> '00:00' then
   begin
      if ti9 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit9.Text)))) then
      begin
         if gifpc9.visible = true then
         begin
            pnlpc9.Color := clRed;
            gifpc9.visible := false
         end
         else
         begin
            pnlpc9.Color := clBtnFace;
            gifpc9.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc9.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro10Timer(Sender: TObject);
begin
   ti10 := ti10 + StrToTime('00:00:01');
   lbltempomicro10.caption := TimeToStr(ti10);
   lbltotalmicro10.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti10),1,2))*60) + StrToInt(Copy(TimeToStr(ti10),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit10.Text <> '00:00' then
   begin
      if ti10 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit10.Text)))) then
      begin
         if gifpc10.visible = true then
         begin
            pnlpc10.Color := clRed;
            gifpc10.visible := false
         end
         else
         begin
            pnlpc10.Color := clBtnFace;
            gifpc10.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc10.visible := true;
   end;
end;

procedure TFrmgerenciamento.FormCreate(Sender: TObject);
var
   x, valorbusca : string;
begin
  lblhora.caption := FormatDateTime('hh:mm',Time);
  Case dayofweek(Date) of
    1 :  x := 'Domingo';
    2 :  x := 'Segunda-Feira';
    3 :  x := 'Terça-Feira';
    4 :  x := 'Quarta-Feira';
    5 :  x := 'Quinta-Feira';
    6 :  x := 'Sexta-Feira';
    7 :  x := 'Sábado';
  end;
  DMEscola.Qtestetarifa.Close;
  DMEscola.Qtestetarifa.SQL.Clear;
  DMEscola.Qtestetarifa.Sql.Add ('Select * From Tarifas');
  DMEscola.Qtestetarifa.Sql.Add('WHERE ');
  DMEscola.Qtestetarifa.Sql.Add('(DiaSemana = :pdiasemana) and');
  DMEscola.Qtestetarifa.Sql.Add('(Horaini < :phora) and');
  DMEscola.Qtestetarifa.Sql.Add('(Horafim > :phoras)');
  DMEscola.Qtestetarifa.ParamByName('pdiasemana').AsString := x;
  DMEscola.Qtestetarifa.ParamByName('phora').AsTime := Time;
  DMEscola.Qtestetarifa.ParamByName('phoras').AsTime := Time;
  DMEscola.Qtestetarifa.open;
  valorBusca := DMEscola.QtestetarifaCobrar.Text;
  if valorBusca  <> '' then
     label28.caption := valorBusca
  else
  Begin
     Showmessage('Não será possível abrir gerenciador de máquinas se '+#13+'não forem configuradas tarifas para esse horário!');
     FrmGerenciamento.Close;
  end;

end;

procedure TFrmgerenciamento.dxButton1Click(Sender: TObject);
begin
  with msgClient1 do begin
    Abort;
    Host:= valorip1;
    port:= 6969;
    if trimRight(MsgClient1.PostIt ('')) = 'OK' then
    begin
      pnlpc1.Visible := true;
      dxbutton1.Visible := false;
      lblpc1.caption := nomepc1;
      lblip1.caption := valorip1
    end;
  end;
end;

procedure TFrmgerenciamento.testeClick(Sender: TObject);
begin
  with msgClient2 do begin
    Abort;
    Host:= valorip2;
    port:= 6969;
    if trimRight(MsgClient2.PostIt ('')) = 'OK' then
    begin
      pnlpc2.Visible := true;
      dxbutton2.Visible := false;
      label10.caption := nomepc2;
      label11.caption := valorip2;
      label12.caption := 'Conectado';
      imgdeslig2.Visible := false;
      MaskEdit2.SEtFocus
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton3Click(Sender: TObject);
begin
  with msgClient3 do begin
    Abort;
    Host:= valorip3;
    port:= 6969;
    if trimRight(MsgClient3.PostIt ('')) = 'OK' then
    begin
      pnlpc3.Visible := true;
      dxbutton3.Visible := false;
      lblpc3.caption := nomepc3;
      lblip3.caption := valorip3
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton4Click(Sender: TObject);
begin
  with msgClient4 do begin
    Abort;
    Host:= valorip4;
    port:= 6969;
    if trimRight(MsgClient4.PostIt ('')) = 'OK' then
    begin
      pnlpc4.Visible := true;
      dxbutton4.Visible := false;
      lblpc4.caption := nomepc4;
      lblip4.caption := valorip4
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton5Click(Sender: TObject);
begin
  with msgClient5 do begin
    Abort;
    Host:= valorip5;
    port:= 6969;
    if trimRight(MsgClient5.PostIt ('')) = 'OK' then
    begin
      pnlpc5.Visible := true;
      dxbutton5.Visible := false;
      lblpc5.caption := nomepc5;
      lblip5.caption := valorip5
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton6Click(Sender: TObject);
begin
  with msgClient6 do begin
    Abort;
    Host:= valorip6;
    port:= 6969;
    if trimRight(MsgClient6.PostIt ('')) = 'OK' then
    begin
      pnlpc6.Visible := true;
      dxbutton6.Visible := false;
      lblpc6.caption := nomepc6;
      lblip6.caption := valorip6
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton7Click(Sender: TObject);
begin
  with msgClient7 do begin
    Abort;
    Host:= valorip7;
    port:= 6969;
    if trimRight(MsgClient7.PostIt ('')) = 'OK' then
    begin
      pnlpc7.Visible := true;
      dxbutton7.Visible := false;
      lblpc7.caption := nomepc7;
      lblip7.caption := valorip7
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton8Click(Sender: TObject);
begin
  with msgClient8 do begin
    Abort;
    Host:= valorip8;
    port:= 6969;
    if trimRight(MsgClient8.PostIt ('')) = 'OK' then
    begin
      pnlpc8.Visible := true;
      dxbutton8.Visible := false;
      lblpc8.caption := nomepc8;
      lblip8.caption := valorip8
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton9Click(Sender: TObject);
begin
  with msgClient9 do begin
    Abort;
    Host:= valorip9;
    port:= 6969;
    if trimRight(MsgClient9.PostIt ('')) = 'OK' then
    begin
      pnlpc9.Visible := true;
      dxbutton9.Visible := false;
      lblpc9.caption := nomepc9;
      lblip9.caption := valorip9
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton10Click(Sender: TObject);
begin
  with msgClient10 do begin
    Abort;
    Host:= valorip10;
    port:= 6969;
    if trimRight(MsgClient10.PostIt ('')) = 'OK' then
    begin
      pnlpc10.Visible := true;
      dxbutton10.Visible := false;
      lblpc10.caption := nomepc10;
      lblip10.caption := valorip10
    end;
  end;

end;

procedure TFrmgerenciamento.btnfecharClick(Sender: TObject);
begin
   close;
end;

procedure TFrmgerenciamento.RxSwitch2Off(Sender: TObject);
begin
   if MaskEdit2.Text <> '  :  ' then
   begin
      if rxof2 = 'sim' then
      begin
         s2 := '';
         timicro2.Enabled := false;
         on2.Font.Color := clAqua;
         off2.Font.Color := clBlue;
         pnlpc2.color := clBtnFace;
         gifpc2.visible := true;
         MaskEdit2.Text := '';
         lbltempomicro2.Caption := '00:00:00';
         lbltotalmicro2.Caption := '0,00';
         lblusuario2.caption := '';
         lblgrupo2.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando2;
      //Parte executada Localmente
         s2 := '';
         timicro2.Enabled := false;
         on2.Font.Color := clAqua;
         off2.Font.Color := clBlue;
         pnlpc2.color := clBtnFace;
         gifpc2.visible := true;
         chamarconta := 'RxSwitch2';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit2.Text := '';
         lbltempomicro2.Caption := '00:00:00';
         lbltotalmicro2.Caption := '0,00';
         lblusuario2.caption := '';
         lblgrupo2.Caption := ''
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch3Off(Sender: TObject);
begin
   if MaskEdit3.Text <> '  :  ' then
   begin
      if rxof3 = 'sim' then
      begin
         s3 := '';
         timicro3.Enabled := false;
         on3.Font.Color := clAqua;
         off3.Font.Color := clBlue;
         pnlpc3.color := clBtnFace;
         gifpc3.visible := true;
         MaskEdit3.Text := '';
         lbltempomicro3.Caption := '00:00:00';
         lbltotalmicro3.Caption := '0,00';
         lblusuario3.caption := '';
         lblgrupo3.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
        AdicionarParametro (cprotege, 0);
        EnviarComando3;
      //Parte executada Localmente
         s3 := '';
         timicro3.Enabled := false;
         on3.Font.Color := clAqua;
         off3.Font.Color := clBlue;
         pnlpc3.color := clBtnFace;
         gifpc3.visible := true;
         chamarconta := 'RxSwitch3';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit3.Text := '';
         lbltempomicro3.Caption := '00:00:00';
         lbltotalmicro3.Caption := '0,00';
         lblusuario3.caption := '';
         lblgrupo3.Caption := ''
      end;
      rxof3 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch4Off(Sender: TObject);
begin
   if MaskEdit4.Text <> '  :  ' then
   begin
      if rxof4 = 'sim' then
      begin
         s4 := '';
         timicro4.Enabled := false;
         on4.Font.Color := clAqua;
         off4.Font.Color := clBlue;
         pnlpc4.color := clBtnFace;
         gifpc4.visible := true;
         MaskEdit4.Text := '';
         lbltempomicro4.Caption := '00:00:00';
         lbltotalmicro4.Caption := '0,00';
         lblusuario4.caption := '';
         lblgrupo4.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando4;
     //Parte executada Localmente
         s4 := '';
         timicro4.Enabled := false;
         on4.Font.Color := clAqua;
         off4.Font.Color := clBlue;
         pnlpc4.color := clBtnFace;
         gifpc4.visible := true;
         chamarconta := 'RxSwitch4';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit4.Text := '';
         lbltempomicro4.Caption := '00:00:00';
         lbltotalmicro4.Caption := '0,00';
         lblusuario4.caption := '';
         lblgrupo4.Caption := ''
      end;
      rxof4 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch5Off(Sender: TObject);
begin
   if MaskEdit5.Text <> '  :  ' then
   begin
      if rxof5 = 'sim' then
      begin
         s5 := '';
         timicro5.Enabled := false;
         on5.Font.Color := clAqua;
         off5.Font.Color := clBlue;
         pnlpc5.color := clBtnFace;
         gifpc5.visible := true;
         MaskEdit5.Text := '';
         lbltempomicro5.Caption := '00:00:00';
         lbltotalmicro5.Caption := '0,00';
         lblusuario5.caption := '';
         lblgrupo5.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando5;
      //Parte executada Localmente
         s5 := '';
         timicro5.Enabled := false;
         on5.Font.Color := clAqua;
         off5.Font.Color := clBlue;
         pnlpc5.color := clBtnFace;
         gifpc5.visible := true;
         chamarconta := 'RxSwitch5';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit5.Text := '';
         lbltempomicro5.Caption := '00:00:00';
         lbltotalmicro5.Caption := '0,00';
         lblusuario5.caption := '';
         lblgrupo5.Caption := ''
      end;
      rxof5 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch6Off(Sender: TObject);
begin
   if MaskEdit6.Text <> '  :  ' then
   begin
      if rxof6 = 'sim' then
      begin
         s6 := '';
         timicro6.Enabled := false;
         on6.Font.Color := clAqua;
         off6.Font.Color := clBlue;
         pnlpc6.color := clBtnFace;
         gifpc6.visible := true;
         MaskEdit6.Text := '';
         lbltempomicro6.Caption := '00:00:00';
         lbltotalmicro6.Caption := '0,00';
         lblusuario6.caption := '';
         lblgrupo6.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando6;
      //Parte executada Localmente
         s6 := '';
         timicro6.Enabled := false;
         on6.Font.Color := clAqua;
         off6.Font.Color := clBlue;
         pnlpc6.color := clBtnFace;
         gifpc6.visible := true;
         chamarconta := 'RxSwitch6';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit6.Text := '';
         lbltempomicro6.Caption := '00:00:00';
         lbltotalmicro6.Caption := '0,00';
         lblusuario6.caption := '';
         lblgrupo6.Caption := ''
      end;
      rxof6 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch7Off(Sender: TObject);
begin
   if MaskEdit7.Text <> '  :  ' then
   begin
      if rxof7 = 'sim' then
      begin
         s7 := '';
         timicro7.Enabled := false;
         on7.Font.Color := clAqua;
         off7.Font.Color := clBlue;
         pnlpc7.color := clBtnFace;
         gifpc7.visible := true;
         MaskEdit7.Text := '';
         lbltempomicro7.Caption := '00:00:00';
         lbltotalmicro7.Caption := '0,00';
         lblusuario7.caption := '';
         lblgrupo7.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando7;
      //Parte executada Localmente
         s7 := '';
         timicro7.Enabled := false;
         on7.Font.Color := clAqua;
         off7.Font.Color := clBlue;
         pnlpc7.color := clBtnFace;
         gifpc7.visible := true;
         chamarconta := 'RxSwitch7';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit7.Text := '';
         lbltempomicro7.Caption := '00:00:00';
         lbltotalmicro7.Caption := '0,00';
         lblusuario7.caption := '';
         lblgrupo7.Caption := ''
      end;
      rxof7 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch8Off(Sender: TObject);
begin
   if MaskEdit8.Text <> '  :  ' then
   begin
      if rxof8 = 'sim' then
      begin
         s8 := '';
         timicro8.Enabled := false;
         on8.Font.Color := clAqua;
         off8.Font.Color := clBlue;
         pnlpc8.color := clBtnFace;
         gifpc8.visible := true;
         MaskEdit8.Text := '';
         lbltempomicro8.Caption := '00:00:00';
         lbltotalmicro8.Caption := '0,00';
         lblusuario8.caption := '';
         lblgrupo8.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando8;
      //Parte executada Localmente
         s8 := '';
         timicro8.Enabled := false;
         on8.Font.Color := clAqua;
         off8.Font.Color := clBlue;
         pnlpc8.color := clBtnFace;
         gifpc8.visible := true;
         chamarconta := 'RxSwitch8';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit8.Text := '';
         lbltempomicro8.Caption := '00:00:00';
         lbltotalmicro8.Caption := '0,00';
         lblusuario8.caption := '';
         lblgrupo8.Caption := ''
      end;
      rxof8 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch9Off(Sender: TObject);
begin
   if MaskEdit9.Text <> '  :  ' then
   begin
      if rxof9 = 'sim' then
      begin
         s9 := '';
         timicro9.Enabled := false;
         on9.Font.Color := clAqua;
         off9.Font.Color := clBlue;
         pnlpc9.color := clBtnFace;
         gifpc9.visible := true;
         MaskEdit9.text := '';
         lbltempomicro9.Caption := '00:00:00';
         lbltotalmicro9.Caption := '0,00';
         lblusuario9.caption := '';
         lblgrupo9.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando9;
      //Parte executada Localmente
         s9 := '';
         timicro9.Enabled := false;
         on9.Font.Color := clAqua;
         off9.Font.Color := clBlue;
         pnlpc9.color := clBtnFace;
         gifpc9.visible := true;
         chamarconta := 'RxSwitch9';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit9.text := '';
         lbltempomicro9.Caption := '00:00:00';
         lbltotalmicro9.Caption := '0,00';
         lblusuario9.caption := '';
         lblgrupo9.Caption := ''
      end;
      rxof9 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch10Off(Sender: TObject);
begin
   if MaskEdit10.Text <> '  :  ' then
   begin
      if rxof10 = 'sim' then
      begin
         s10 := '';
         timicro10.Enabled := false;
         on10.Font.Color := clAqua;
         off10.Font.Color := clBlue;
         pnlpc10.color := clBtnFace;
         gifpc10.visible := true;
         MaskEdit10.Text := '';
         lbltempomicro10.Caption := '00:00:00';
         lbltotalmicro10.Caption := '0,00';
         lblusuario10.caption := '';
         lblgrupo10.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando10;
      //Parte executada Localmente
         s10 := '';
         timicro10.Enabled := false;
         on10.Font.Color := clAqua;
         off10.Font.Color := clBlue;
         pnlpc10.color := clBtnFace;
         gifpc10.visible := true;
         chamarconta := 'RxSwitch10';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit10.Text := '';
         lbltempomicro10.Caption := '00:00:00';
         lbltotalmicro10.Caption := '0,00';
         lblusuario10.caption := '';
         lblgrupo10.Caption := ''
      end;
      rxof10 := '';
   end;
end;

procedure TFrmgerenciamento.dxButton13Click(Sender: TObject);
begin
  with msgClient13 do begin
    Abort;
    Host:= valorip13;
    port:= 6969;
    if trimRight(MsgClient13.PostIt ('')) = 'OK' then
    begin
      pnlpc13.Visible := true;
      dxbutton13.Visible := false;
      lblpc13.caption := nomepc13;
      lblip13.caption := valorip13
    end;
  end;
end;

procedure TFrmgerenciamento.incluirbtnClick(Sender: TObject);
begin
   DMEscola.Qsuport.open;
   DMEscola.Qsuport.Append;
   DMEscola.Qsuport.Edit;
   if lblcod2.caption <> '0' then
      DMEscola.QsuportCod_cli.Value := StrToInt(lblcod2.caption)
   else
      DMEscola.QsuportCod_cli.Value := 0;
   DMEscola.QsuportProduto.Value := RxLookUpEdit2.Text;
   DMEscola.QsuportQuantidade.Value := 1;
   DMEscola.QsuportPreco_unit.Value := DBText2.Field.AsCurrency;
   DMEscola.QsuportPreco_total.Value := DBText2.Field.AsCurrency;
   DMEscola.Qsuport.Post;
   DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
   DMEscola.Qprodutos.close;
   DMEscola.Qprodutos.SQL.Clear;
   DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
   DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
   DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit2.LookupValue;
   DMEscola.Qprodutos.open;
   DMEscola.Qprodutos.Edit;
   if (DMEscola.QprodutosServico.value = true) then
   begin
      DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
      DMEscola.Qprodutos.Post
   end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
   DMEscola.Qprodutos.close;
   DMEscola.Qprodutos.SQL.Clear;
   DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
   DMEscola.Qprodutos.open;
//================================== FIM...
   RxLookUpEdit2.Text := '';
end;

procedure TFrmgerenciamento.dxButton15Click(Sender: TObject);
begin
  with msgClient15 do begin
    Abort;
    Host:= valorip15;
    port:= 6969;
    if trimRight(MsgClient15.PostIt ('')) = 'OK' then
    begin
      pnlpc15.Visible := true;
      dxbutton15.Visible := false;
      lblpc15.caption := nomepc15;
      lblip15.caption := valorip15
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton16Click(Sender: TObject);
begin
  with msgClient16 do begin
    Abort;
    Host:= valorip16;
    port:= 6969;
    if trimRight(MsgClient16.PostIt ('')) = 'OK' then
    begin
      pnlpc16.Visible := true;
      dxbutton16.Visible := false;
      lblpc16.caption := nomepc16;
      lblip16.caption := valorip16
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton17Click(Sender: TObject);
begin
  with msgClient17 do begin
    Abort;
    Host:= valorip17;
    port:= 6969;
    if trimRight(MsgClient17.PostIt ('')) = 'OK' then
    begin
      pnlpc17.Visible := true;
      dxbutton17.Visible := false;
      lblpc17.caption := nomepc17;
      lblip17.caption := valorip17
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton18Click(Sender: TObject);
begin
  with msgClient18 do begin
    Abort;
    Host:= valorip18;
    port:= 6969;
    if trimRight(MsgClient18.PostIt ('')) = 'OK' then
    begin
      pnlpc18.Visible := true;
      dxbutton18.Visible := false;
      lblpc18.caption := nomepc18;
      lblip18.caption := valorip18
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton19Click(Sender: TObject);
begin
  with msgClient19 do begin
    Abort;
    Host:= valorip19;
    port:= 6969;
    if trimRight(MsgClient19.PostIt ('')) = 'OK' then
    begin
      pnlpc19.Visible := true;
      dxbutton19.Visible := false;
      lblpc19.caption := nomepc19;
      lblip19.caption := valorip19
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton20Click(Sender: TObject);
begin
  with msgClient20 do begin
    Abort;
    Host:= valorip20;
    port:= 6969;
    if trimRight(MsgClient20.PostIt ('')) = 'OK' then
    begin
      pnlpc20.Visible := true;
      dxbutton20.Visible := false;
      lblpc20.caption := nomepc20;
      lblip20.caption := valorip20
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton21Click(Sender: TObject);
begin
  with msgClient21 do begin
    Abort;
    Host:= valorip21;
    port:= 6969;
    if trimRight(MsgClient21.PostIt ('')) = 'OK' then
    begin
      pnlpc21.Visible := true;
      dxbutton21.Visible := false;
      lblpc21.caption := nomepc21;
      lblip21.caption := valorip21
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton22Click(Sender: TObject);
begin
  with msgClient22 do begin
    Abort;
    Host:= valorip22;
    port:= 6969;
    if trimRight(MsgClient22.PostIt ('')) = 'OK' then
    begin
      pnlpc22.Visible := true;
      dxbutton22.Visible := false;
      lblpc22.caption := nomepc22;
      lblip22.caption := valorip22
    end;
  end;
end;

//=========================================================================================================================
procedure TFrmgerenciamento.serverMSG(Sender: TComponent; const sFrom,
  sMsg: String);                                                     //
var                                                                  //
  comando: string;                                                  //
                                                                    //
  // retira os parametros do comando enviado                        //
  function Parametro (index: integer): String;                      //
  begin                                                             //
    if index >= 0 then                                              //
      Parametro:= trim(copy (SMsg, 10*index+1, 10))                 //
    else                                                            //
      Parametro:= trim(copy (SMsg, 10*abs(index)+1, 200));          //
  end;                                                              //
                                                                    //
                                                                    //
begin                                                               //
  comando:= trim(parametro (0));                                    //
                                                                    //
  // a lista de constantes com os comandos                          //
  //estão no diretorio /share para ser compartilhada pelo           //
  // client e o server, evitando diferenças                         //
                                                                    //
  if Comando = cMsgsrv then                                         //
    EnviarMsgsrv (parametro (-1));                                  //
  if Comando = cTime then                                           //
     Tempo (parametro (-1));                                        //
  if Comando = cip then                                             //
     Getip (parametro (-1));                                        //
  end;                                                             //
                                                                   //
////////////////////////////////////////////////////////////////////

procedure TFrmgerenciamento.setabaixo1Click(Sender: TObject);
begin
   detais1.Visible := true;
   maskedit1.SetFocus;
   setabaixo1.visible := false;
end;

procedure TFrmgerenciamento.setacima1Click(Sender: TObject);
begin
   detais1.visible := false;
   setabaixo1.visible := true;
end;

procedure TFrmgerenciamento.LigarMonitor13Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando13;
end;

procedure TFrmgerenciamento.LigarMonitor1Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando;
end;

procedure TFrmgerenciamento.LigarMonitor2Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando2;
end;

procedure TFrmgerenciamento.LigarMonitor3Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando3;
end;

procedure TFrmgerenciamento.LigarMonitor4Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando4;
end;

procedure TFrmgerenciamento.LigarMonitor5Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando5;
end;

procedure TFrmgerenciamento.LigarMonitor6Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando6;
end;

procedure TFrmgerenciamento.LigarMonitor7Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando7;
end;

procedure TFrmgerenciamento.LigarMonitor8Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando8;
end;

procedure TFrmgerenciamento.LigarMonitor9Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando9;
end;

procedure TFrmgerenciamento.LigarMonitor10Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando10;
end;

procedure TFrmgerenciamento.LigarMonitor11Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando11;
end;

procedure TFrmgerenciamento.LigarMonitor12Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando12;
end;

procedure TFrmgerenciamento.LigarMonitor14Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando14;
end;

procedure TFrmgerenciamento.LigarMonitor15Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando15;
end;

procedure TFrmgerenciamento.LigarMonitor16Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando16;
end;

procedure TFrmgerenciamento.LigarMonitor17Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando17;
end;

procedure TFrmgerenciamento.LigarMonitor18Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando18;
end;

procedure TFrmgerenciamento.LigarMonitor19Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando19;
end;

procedure TFrmgerenciamento.LigarMonitor20Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando20;
end;

procedure TFrmgerenciamento.LigarMonitor21Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando21;
end;

procedure TFrmgerenciamento.LigarMonitor22Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando22;
end;

procedure TFrmgerenciamento.LigarMonitor23Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando23;
end;

procedure TFrmgerenciamento.LigarMonitor24Click(Sender: TObject);
begin
   AdicionarParametro (cLigarMonitor, 0);
   EnviarComando24;
end;

procedure TFrmgerenciamento.DesligarMonitor1Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando;
end;

procedure TFrmgerenciamento.DesligarMonitor2Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando2;
end;

procedure TFrmgerenciamento.DesligarMonitor3Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando3;
end;

procedure TFrmgerenciamento.DesligarMonitor4Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando4;
end;

procedure TFrmgerenciamento.DesligarMonitor5Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando5;
end;

procedure TFrmgerenciamento.DesligarMonitor6Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando6;
end;

procedure TFrmgerenciamento.DesligarMonitor7Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando7;
end;

procedure TFrmgerenciamento.DesligarMonitor8Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando8;
end;

procedure TFrmgerenciamento.DesligarMonitor9Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando9;
end;

procedure TFrmgerenciamento.DesligarMonitor10Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando10;
end;

procedure TFrmgerenciamento.DesligarMonitor11Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando11;
end;

procedure TFrmgerenciamento.DesligarMonitor12Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando12;
end;

procedure TFrmgerenciamento.DesligarMonitor13Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando13;
end;

procedure TFrmgerenciamento.DesligarMonitor14Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando14;
end;

procedure TFrmgerenciamento.DesligarMonitor15Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando15;
end;

procedure TFrmgerenciamento.DesligarMonitor16Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando16;
end;

procedure TFrmgerenciamento.DesligarMonitor17Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando17;
end;

procedure TFrmgerenciamento.DesligarMonitor18Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando18;
end;

procedure TFrmgerenciamento.DesligarMonitor19Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando19;
end;

procedure TFrmgerenciamento.DesligarMonitor20Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando20;
end;

procedure TFrmgerenciamento.DesligarMonitor21Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando21;
end;

procedure TFrmgerenciamento.DesligarMonitor22Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando22;
end;

procedure TFrmgerenciamento.DesligarMonitor23Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando23;
end;

procedure TFrmgerenciamento.DesligarMonitor24Click(Sender: TObject);
begin
   AdicionarParametro (cApagarMonitor, 0);
   EnviarComando24;
end;

procedure TFrmgerenciamento.EnviarMensagem1Click(Sender: TObject);
begin
   chamarmessage := 'pop1';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem2Click(Sender: TObject);
begin
   chamarmessage := 'pop2';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem3Click(Sender: TObject);
begin
   chamarmessage := 'pop3';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem4Click(Sender: TObject);
begin
   chamarmessage := 'pop4';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem5Click(Sender: TObject);
begin
   chamarmessage := 'pop5';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem6Click(Sender: TObject);
begin
   chamarmessage := 'pop6';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem7Click(Sender: TObject);
begin
   chamarmessage := 'pop7';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem8Click(Sender: TObject);
begin
   chamarmessage := 'pop8';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem9Click(Sender: TObject);
begin
   chamarmessage := 'pop9';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem10Click(Sender: TObject);
begin
   chamarmessage := 'pop10';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem11Click(Sender: TObject);
begin
   chamarmessage := 'pop11';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem12Click(Sender: TObject);
begin
   chamarmessage := 'pop12';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem13Click(Sender: TObject);
begin
   chamarmessage := 'pop13';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem14Click(Sender: TObject);
begin
   chamarmessage := 'pop14';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem15Click(Sender: TObject);
begin
   chamarmessage := 'pop15';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem16Click(Sender: TObject);
begin
   chamarmessage := 'pop16';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem17Click(Sender: TObject);
begin
   chamarmessage := 'pop17';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem18Click(Sender: TObject);
begin
   chamarmessage := 'pop18';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem19Click(Sender: TObject);
begin
   chamarmessage := 'pop19';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem20Click(Sender: TObject);
begin
   chamarmessage := 'pop20';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem21Click(Sender: TObject);
begin
   chamarmessage := 'pop21';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem22Click(Sender: TObject);
begin
   chamarmessage := 'pop22';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem23Click(Sender: TObject);
begin
   chamarmessage := 'pop23';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.EnviarMensagem24Click(Sender: TObject);
begin
   chamarmessage := 'pop24';
   framessage1.visible := true;
end;

procedure TFrmgerenciamento.MsgClient11Connect(Sender: TObject);
begin
  msgClient11.TimeOut:= 90000;
  msgClient12.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient12Connect(Sender: TObject);
begin
  msgClient12.TimeOut:= 90000;
  msgClient12.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient13Connect(Sender: TObject);
begin
  msgClient13.TimeOut:= 90000;
  msgClient13.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient14Connect(Sender: TObject);
begin
  msgClient14.TimeOut:= 90000;
  msgClient14.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient15Connect(Sender: TObject);
begin
  msgClient15.TimeOut:= 90000;
  msgClient15.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient16Connect(Sender: TObject);
begin
  msgClient16.TimeOut:= 90000;
  msgClient16.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient17Connect(Sender: TObject);
begin
  msgClient17.TimeOut:= 90000;
  msgClient17.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient18Connect(Sender: TObject);
begin
  msgClient18.TimeOut:= 90000;
  msgClient18.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient19Connect(Sender: TObject);
begin
  msgClient19.TimeOut:= 90000;
  msgClient19.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient20Connect(Sender: TObject);
begin
  msgClient20.TimeOut:= 90000;
  msgClient20.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient21Connect(Sender: TObject);
begin
  msgClient21.TimeOut:= 90000;
  msgClient21.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient22Connect(Sender: TObject);
begin
  msgClient22.TimeOut:= 90000;
  msgClient22.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient23Connect(Sender: TObject);
begin
  msgClient23.TimeOut:= 90000;
  msgClient23.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.MsgClient24Connect(Sender: TObject);
begin
  msgClient24.TimeOut:= 90000;
  msgClient24.ReportLevel:= 2;
end;

procedure TFrmgerenciamento.RxSwitch11Off(Sender: TObject);
begin
   if MaskEdit11.Text <> '  :  ' then
   begin
      if rxof11 = 'sim' then
      begin
         s11 := '';
         timicro11.Enabled := false;
         on11.Font.Color := clAqua;
         off11.Font.Color := clBlue;
         pnlpc11.color := clBtnFace;
         gifpc11.visible := true;
         MaskEdit11.Text := '';
         lbltempomicro11.Caption := '00:00:00';
         lbltotalmicro11.Caption := '0,00';
         lblusuario11.caption := '';
         lblgrupo11.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando11;
      //Parte executada Localmente
         s11 := '';
         timicro11.Enabled := false;
         on11.Font.Color := clAqua;
         off11.Font.Color := clBlue;
         pnlpc11.color := clBtnFace;
         gifpc11.visible := true;
         chamarconta := 'RxSwitch11';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit11.Text := '';
         lbltempomicro11.Caption := '00:00:00';
         lbltotalmicro11.Caption := '0,00';
         lblusuario11.caption := '';
         lblgrupo11.Caption := ''
      end;
      rxof11 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch12Off(Sender: TObject);
begin
   if MaskEdit12.Text <> '  :  ' then
   begin
      if rxof12 = 'sim' then
      begin
         s12 := '';
         timicro12.Enabled := false;
         on12.Font.Color := clAqua;
         off12.Font.Color := clBlue;
         pnlpc12.color := clBtnFace;
         gifpc12.visible := true;
         MaskEdit12.Text := '';
         lbltempomicro12.Caption := '00:00:00';
         lbltotalmicro12.Caption := '0,00';
         lblusuario12.caption := '';
         lblgrupo12.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando12;
      //Parte executada Localmente
         s12 := '';
         timicro12.Enabled := false;
         on12.Font.Color := clAqua;
         off12.Font.Color := clBlue;
         pnlpc12.color := clBtnFace;
         gifpc12.visible := true;
         chamarconta := 'RxSwitch12';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit12.Text := '';
         lbltempomicro12.Caption := '00:00:00';
         lbltotalmicro12.Caption := '0,00';
         lblusuario12.caption := '';
         lblgrupo12.Caption := ''
      end;
      rxof12 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch13Off(Sender: TObject);
begin
   if MaskEdit13.Text <> '  :  ' then
   begin
      if rxof13 = 'sim' then
      begin
         s13 := '';
         timicro13.Enabled := false;
         on13.Font.Color := clAqua;
         off13.Font.Color := clBlue;
         pnlpc13.color := clBtnFace;
         gifpc13.visible := true;
         MaskEdit13.Text := '';
         lbltempomicro13.Caption := '00:00:00';
         lbltotalmicro13.Caption := '0,00';
         lblusuario13.caption := '';
         lblgrupo13.Caption := ''
      end
      else
      begin
     //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando13;
     //Parte executada Localmente
         s13 := '';
         timicro13.Enabled := false;
         on13.Font.Color := clAqua;
         off13.Font.Color := clBlue;
         pnlpc13.color := clBtnFace;
         gifpc13.visible := true;
         chamarconta := 'RxSwitch13';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit13.Text := '';
         lbltempomicro13.Caption := '00:00:00';
         lbltotalmicro13.Caption := '0,00';
         lblusuario13.caption := '';
         lblgrupo13.Caption := ''
      end;
      rxof13 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch14Off(Sender: TObject);
begin
   if MaskEdit14.Text <> '  :  ' then
   begin
      if rxof14 = 'sim' then
      begin
         s14 := '';
         timicro14.Enabled := false;
         on14.Font.Color := clAqua;
         off14.Font.Color := clBlue;
         pnlpc14.color := clBtnFace;
         gifpc14.visible := true;
         MaskEdit14.Text := '';
         lbltempomicro14.Caption := '00:00:00';
         lbltotalmicro14.Caption := '0,00';
         lblusuario14.caption := '';
         lblgrupo14.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando14;
      //Parte executada Localmente
         s14 := '';
         timicro14.Enabled := false;
         on14.Font.Color := clAqua;
         off14.Font.Color := clBlue;
         pnlpc14.color := clBtnFace;
         gifpc14.visible := true;
         chamarconta := 'RxSwitch14';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit14.Text := '';
         lbltempomicro14.Caption := '00:00:00';
         lbltotalmicro14.Caption := '0,00';
         lblusuario14.caption := '';
         lblgrupo14.Caption := ''
      end;
      rxof14 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch15Off(Sender: TObject);
begin
   if MaskEdit15.Text <> '  :  ' then
   begin
      if rxof15 = 'sim' then
      begin
         s15 := '';
         timicro15.Enabled := false;
         on15.Font.Color := clAqua;
         off15.Font.Color := clBlue;
         pnlpc15.color := clBtnFace;
         gifpc15.visible := true;
         MaskEdit15.Text := '';
         lbltempomicro15.Caption := '00:00:00';
         lbltotalmicro15.Caption := '0,00';
         lblusuario15.caption := '';
         lblgrupo15.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando15;
      //Parte executada Localmente
         s15 := '';
         timicro15.Enabled := false;
         on15.Font.Color := clAqua;
         off15.Font.Color := clBlue;
         pnlpc15.color := clBtnFace;
         gifpc15.visible := true;
         chamarconta := 'RxSwitch15';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit15.Text := '';
         lbltempomicro15.Caption := '00:00:00';
         lbltotalmicro15.Caption := '0,00';
         lblusuario15.caption := '';
         lblgrupo15.Caption := ''
      end;
      rxof15 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch16Off(Sender: TObject);
begin
   if MaskEdit16.Text <> '  :  ' then
   begin
      if rxof16 = 'sim' then
      begin
         s16 := '';
         timicro16.Enabled := false;
         on16.Font.Color := clAqua;
         off16.Font.Color := clBlue;
         pnlpc16.color := clBtnFace;
         gifpc16.visible := true;
         MaskEdit16.Text := '';
         lbltempomicro16.Caption := '00:00:00';
         lbltotalmicro16.Caption := '0,00';
         lblusuario16.caption := '';
         lblgrupo16.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando16;
      //Parte executada Localmente
         s16 := '';
         timicro16.Enabled := false;
         on16.Font.Color := clAqua;
         off16.Font.Color := clBlue;
         pnlpc16.color := clBtnFace;
         gifpc16.visible := true;
         chamarconta := 'RxSwitch16';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit16.Text := '';
         lbltempomicro16.Caption := '00:00:00';
         lbltotalmicro16.Caption := '0,00';
         lblusuario16.caption := '';
         lblgrupo16.Caption := ''
      end;
      rxof16 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch17Off(Sender: TObject);
begin
   if MaskEdit17.Text <> '  :  ' then
   begin
      if rxof17 = 'sim' then
      begin
         s17 := '';
         timicro17.Enabled := false;
         on17.Font.Color := clAqua;
         off17.Font.Color := clBlue;
         pnlpc17.color := clBtnFace;
         gifpc17.visible := true;
         MaskEdit17.Text := '';
         lbltempomicro17.Caption := '00:00:00';
         lbltotalmicro17.Caption := '0,00';
         lblusuario17.caption := '';
         lblgrupo17.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando17;
      //Parte executada Localmente
         s17 := '';
         timicro17.Enabled := false;
         on17.Font.Color := clAqua;
         off17.Font.Color := clBlue;
         pnlpc17.color := clBtnFace;
         gifpc17.visible := true;
         chamarconta := 'RxSwitch17';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit17.Text := '';
         lbltempomicro17.Caption := '00:00:00';
         lbltotalmicro17.Caption := '0,00';
         lblusuario17.caption := '';
         lblgrupo17.Caption := ''
      end;
      rxof17 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch18Off(Sender: TObject);
begin
   if MaskEdit18.Text <> '  :  ' then
   begin
      if rxof18 = 'sim' then
      begin
         s18 := '';
         timicro18.Enabled := false;
         on18.Font.Color := clAqua;
         off18.Font.Color := clBlue;
         pnlpc18.color := clBtnFace;
         gifpc18.visible := true;
         MaskEdit18.Text := '';
         lbltempomicro18.Caption := '00:00:00';
         lbltotalmicro18.Caption := '0,00';
         lblusuario18.caption := '';
         lblgrupo18.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando18;
      //Parte executada Localmente
         s18 := '';
         timicro18.Enabled := false;
         on18.Font.Color := clAqua;
         off18.Font.Color := clBlue;
         pnlpc18.color := clBtnFace;
         gifpc18.visible := true;
         chamarconta := 'RxSwitch18';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit18.Text := '';
         lbltempomicro18.Caption := '00:00:00';
         lbltotalmicro18.Caption := '0,00';
         lblusuario18.caption := '';
         lblgrupo18.Caption := ''
      end;
      rxof18 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch19Off(Sender: TObject);
begin
   if MaskEdit19.Text <> '  :  ' then
   begin
      if rxof19 = 'sim' then
      begin
         s19 := '';
         timicro19.Enabled := false;
         on19.Font.Color := clAqua;
         off19.Font.Color := clBlue;
         pnlpc19.color := clBtnFace;
         gifpc19.visible := true;
         MaskEdit19.Text := '';
         lbltempomicro19.Caption := '00:00:00';
         lbltotalmicro19.Caption := '0,00';
         lblusuario19.caption := '';
         lblgrupo19.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando19;
      //Parte executada Localmente
         s19 := '';
         timicro19.Enabled := false;
         on19.Font.Color := clAqua;
         off19.Font.Color := clBlue;
         pnlpc19.color := clBtnFace;
         gifpc19.visible := true;
         chamarconta := 'RxSwitch19';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit19.Text := '';
         lbltempomicro19.Caption := '00:00:00';
         lbltotalmicro19.Caption := '0,00';
         lblusuario19.caption := '';
         lblgrupo19.Caption := ''
      end;
      rxof19 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch20Off(Sender: TObject);
begin
   if MaskEdit20.Text <> '  :  ' then
   begin
      if rxof20 = 'sim' then
      begin
         s20 := '';
         timicro20.Enabled := false;
         on20.Font.Color := clAqua;
         off20.Font.Color := clBlue;
         pnlpc20.color := clBtnFace;
         gifpc20.visible := true;
         MaskEdit20.Text := '';
         lbltempomicro20.Caption := '00:00:00';
         lbltotalmicro20.Caption := '0,00';
         lblusuario20.caption := '';
         lblgrupo20.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando20;
      //Parte executada Localmente
         s20 := '';
         timicro20.Enabled := false;
         on20.Font.Color := clAqua;
         off20.Font.Color := clBlue;
         pnlpc20.color := clBtnFace;
         gifpc20.visible := true;
         chamarconta := 'RxSwitch20';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit20.Text := '';
         lbltempomicro20.Caption := '00:00:00';
         lbltotalmicro20.Caption := '0,00';
         lblusuario20.caption := '';
         lblgrupo20.Caption := ''
      end;
      rxof20 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch21Off(Sender: TObject);
begin
   if MaskEdit21.Text <> '  :  ' then
   begin
      if rxof21 = 'sim' then
      begin
         s21 := '';
         timicro21.Enabled := false;
         on21.Font.Color := clAqua;
         off21.Font.Color := clBlue;
         pnlpc21.color := clBtnFace;
         gifpc21.visible := true;
         MaskEdit21.Text := '';
         lbltempomicro21.Caption := '00:00:00';
         lbltotalmicro21.Caption := '0,00';
         lblusuario21.caption := '';
         lblgrupo21.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando21;
      //Parte executada Localmente
         s21 := '';
         timicro21.Enabled := false;
         on21.Font.Color := clAqua;
         off21.Font.Color := clBlue;
         pnlpc21.color := clBtnFace;
         gifpc21.visible := true;
         chamarconta := 'RxSwitch21';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit21.Text := '';
         lbltempomicro21.Caption := '00:00:00';
         lbltotalmicro21.Caption := '0,00';
         lblusuario21.caption := '';
         lblgrupo21.Caption := ''
      end;
      rxof21 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch22Off(Sender: TObject);
begin
   if MaskEdit22.Text <> '  :  ' then
   begin
      if rxof22 = 'sim' then
      begin
         s22 := '';
         timicro22.Enabled := false;
         on22.Font.Color := clAqua;
         off22.Font.Color := clBlue;
         pnlpc22.color := clBtnFace;
         gifpc22.visible := true;
         MaskEdit22.Text := '';
         lbltempomicro22.Caption := '00:00:00';
         lbltotalmicro22.Caption := '0,00';
         lblusuario22.caption := '';
         lblgrupo22.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando2;
      //Parte executada Localmente
         s22 := '';
         timicro22.Enabled := false;
         on22.Font.Color := clAqua;
         off22.Font.Color := clBlue;
         pnlpc22.color := clBtnFace;
         gifpc22.visible := true;
         chamarconta := 'RxSwitch22';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit22.Text := '';
         lbltempomicro22.Caption := '00:00:00';
         lbltotalmicro22.Caption := '0,00';
         lblusuario22.caption := '';
         lblgrupo22.Caption := ''
      end;
      rxof22 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch23Off(Sender: TObject);
begin
   if MaskEdit23.Text <> '  :  ' then
   begin
      if rxof23 = 'sim' then
      begin
         s23 := '';
         timicro23.Enabled := false;
         on23.Font.Color := clAqua;
         off23.Font.Color := clBlue;
         pnlpc23.color := clBtnFace;
         gifpc23.visible := true;
         MaskEdit23.Text := '';
         lbltempomicro23.Caption := '00:00:00';
         lbltotalmicro23.Caption := '0,00';
         lblusuario23.caption := '';
         lblgrupo23.Caption := ''
      end
      else
      begin
      //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando23;
      //Parte executada Localmente
         s23 := '';
         timicro23.Enabled := false;
         on23.Font.Color := clAqua;
         off23.Font.Color := clBlue;
         pnlpc23.color := clBtnFace;
         gifpc23.visible := true;
         chamarconta := 'RxSwitch23';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit23.Text := '';
         lbltempomicro23.Caption := '00:00:00';
         lbltotalmicro23.Caption := '0,00';
         lblusuario23.caption := '';
         lblgrupo23.Caption := ''
      end;
      rxof23 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch24Off(Sender: TObject);
begin
   if MaskEdit24.Text <> '  :  ' then
   begin
     if rxof24 = 'sim' then
     begin
         s24 := '';
         timicro24.Enabled := false;
         on24.Font.Color := clAqua;
         off24.Font.Color := clBlue;
         pnlpc24.color := clBtnFace;
         gifpc24.visible := true;
         MaskEdit24.Text := '';
         lbltempomicro24.Caption := '00:00:00';
         lbltotalmicro24.Caption := '0,00';
         lblusuario24.caption := '';
         lblgrupo24.caption := ''
     end
     else
     begin
     //Parte enviada para Estação
         AdicionarParametro (cprotege, 0);
         EnviarComando24;
     //Parte executada Localmente
         s24 := '';
         timicro24.Enabled := false;
         on24.Font.Color := clAqua;
         off24.Font.Color := clBlue;
         pnlpc24.color := clBtnFace;
         gifpc24.visible := true;
         chamarconta := 'RxSwitch24';
         Frmvendaacesso := TFrmvendaacesso.Create(self);
         Frmvendaacesso.show;
         MaskEdit24.Text := '';
         lbltempomicro24.Caption := '00:00:00';
         lbltotalmicro24.Caption := '0,00';
         lblusuario24.caption := '';
         lblgrupo24.caption := ''
      end;
      rxof24 := '';
   end;
end;

procedure TFrmgerenciamento.RxSwitch11On(Sender: TObject);
begin
   if r11 = 'restore' then
   begin
      timicro11.Enabled := true;
      ti11 := StrToTime(lbltempomicro11.Caption);
      on11.Font.Color := clBlue;
      off11.Font.Color := clAqua;
      pnlpc11.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit11.Text = '  :  ' then
      begin
         RXSwitch11.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc11+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit11.Text, 1);
         EnviarComando11;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando11;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando11;
      //Parte executada localmente
         s11 := 'upload';
         timicro11.Enabled := true;
         lbltotalmicro11.caption := '0,00';
         ti11 := StrToTime('00:00:00');
         on11.Font.Color := clBlue;
         off11.Font.Color := clAqua;
         pnlpc11.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch11';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch15On(Sender: TObject);
begin
   if r15 = 'restore' then
   begin
      timicro15.Enabled := true;
      ti15 := StrToTime(lbltempomicro15.Caption);
      on15.Font.Color := clBlue;
      off15.Font.Color := clAqua;
      pnlpc15.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit15.Text = '  :  ' then
      begin
         RXSwitch15.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc15+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit15.Text, 1);
         EnviarComando15;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando15;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando15;
      //Parte executada localmente
         s15 := 'upload';
         timicro15.Enabled := true;
         lbltotalmicro15.caption := '0,00';
         ti15 := StrToTime('00:00:00');
         on15.Font.Color := clBlue;
         off15.Font.Color := clAqua;
         pnlpc15.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch15';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch16On(Sender: TObject);
begin
   if r16 = 'restore' then
   begin
      timicro16.Enabled := true;
      ti16 := StrToTime(lbltempomicro16.Caption);
      on16.Font.Color := clBlue;
      off16.Font.Color := clAqua;
      pnlpc16.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit16.Text = '  :  ' then
      begin
         RXSwitch16.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc16+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit16.Text, 1);
         EnviarComando16;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando16;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando16;
     //Parte executada localmente
         s16 := 'upload';
         timicro16.Enabled := true;
         lbltotalmicro16.caption := '0,00';
         ti16 := StrToTime('00:00:00');
         on16.Font.Color := clBlue;
         off16.Font.Color := clAqua;
         pnlpc16.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch16';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch17On(Sender: TObject);
begin
   if r17 = 'restore' then
   begin
      timicro17.Enabled := true;
      ti17 := StrToTime(lbltempomicro17.Caption);
      on17.Font.Color := clBlue;
      off17.Font.Color := clAqua;
      pnlpc17.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit17.Text = '  :  ' then
      begin
         RXSwitch17.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc17+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit17.Text, 1);
         EnviarComando17;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando17;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando17;
      //Parte executada localmente
         s17 := 'upload';
         timicro17.Enabled := true;
         lbltotalmicro17.caption := '0,00';
         ti17 := StrToTime('00:00:00');
         on17.Font.Color := clBlue;
         off17.Font.Color := clAqua;
         pnlpc17.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch17';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch18On(Sender: TObject);
begin
   if r18 = 'restore' then
   begin
      timicro18.Enabled := true;
      ti18 := StrToTime(lbltempomicro18.Caption);
      on18.Font.Color := clBlue;
      off18.Font.Color := clAqua;
      pnlpc18.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit18.Text = '  :  ' then
      begin
         RXSwitch18.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc18+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit18.Text, 1);
         EnviarComando18;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando18;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando18;
      //Parte executada localmente
         s18 := 'upload';
         timicro18.Enabled := true;
         lbltotalmicro18.caption := '0,00';
         ti18 := StrToTime('00:00:00');
         on18.Font.Color := clBlue;
         off18.Font.Color := clAqua;
         pnlpc18.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch18';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.RxSwitch19On(Sender: TObject);
begin
   if r19 = 'restore' then
   begin
      timicro19.Enabled := true;
      ti19 := StrToTime(lbltempomicro19.Caption);
      on19.Font.Color := clBlue;
      off19.Font.Color := clAqua;
      pnlpc19.color := $0053A6A6;
   end
   else
   begin
      if MaskEdit19.Text = '  :  ' then
      begin
         RXSwitch19.StateOn := false;
         ShowMessage('Não será possível liberar a estação '+nomepc19+' se não for passado o tempo prévio!')
      end
      else
      begin
      //Parte enviada para estãção
         AdicionarParametro (cTempo, 0);
         AdicionarParametro (MaskEdit19.Text, 1);
         EnviarComando19;
         AdicionarParametro (cFechaprotege, 0);
         EnviarComando19;
         AdicionarParametro (cCalcular, 0);
         AdicionarParametro (Label28.Caption, 1);
         EnviarComando19;
      //Parte executada localmente
         s19 := 'upload';
         timicro19.Enabled := true;
         lbltotalmicro19.caption := '0,00';
         ti19 := StrToTime('00:00:00');
         on19.Font.Color := clBlue;
         off19.Font.Color := clAqua;
         pnlpc19.color :=  $0053A6A6;
         chamarcliente := 'RxSwitch19';
         FrmLocateCli := TfrmLocateCli.Create(self);
         FrmLocateCli.Show;
      end;
   end;
end;

procedure TFrmgerenciamento.tiMicro11Timer(Sender: TObject);
begin
   ti11 := ti11 + StrToTime('00:00:01');
   lbltempomicro11.caption := TimeToStr(ti11);
   lbltotalmicro11.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti11),1,2))*60) + StrToInt(Copy(TimeToStr(ti11),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit11.Text <> '00:00' then
   begin
      if ti11 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit11.Text)))) then
      begin
         if gifpc11.visible = true then
         begin
            pnlpc11.Color := clRed;
            gifpc11.visible := false
         end
         else
         begin
            pnlpc11.Color := clBtnFace;
            gifpc11.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc11.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro12Timer(Sender: TObject);
begin
   ti12 := ti12 + StrToTime('00:00:01');
   lbltempomicro12.caption := TimeToStr(ti12);
   lbltotalmicro12.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti12),1,2))*60) + StrToInt(Copy(TimeToStr(ti12),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit12.Text <> '00:00' then
   begin
      if ti12 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit12.Text)))) then
      begin
         if gifpc12.visible = true then
         begin
            pnlpc12.Color := clRed;
            gifpc12.visible := false
         end
         else
         begin
            pnlpc12.Color := clBtnFace;
            gifpc12.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc12.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro13Timer(Sender: TObject);
begin
   ti13 := ti13 + StrToTime('00:00:01');
   lbltempomicro13.caption := TimeToStr(ti13);
   lbltotalmicro13.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti13),1,2))*60) + StrToInt(Copy(TimeToStr(ti13),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit13.Text <> '00:00' then
   begin
      if ti13 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit13.Text)))) then
      begin
         if gifpc13.visible = true then
         begin
            pnlpc13.Color := clRed;
            gifpc13.visible := false
         end
         else
         begin
            pnlpc13.Color := clBtnFace;
            gifpc13.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc13.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro14Timer(Sender: TObject);
begin
   ti14 := ti14 + StrToTime('00:00:01');
   lbltempomicro14.caption := TimeToStr(ti14);
   lbltotalmicro14.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti14),1,2))*60) + StrToInt(Copy(TimeToStr(ti14),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit14.Text <> '00:00' then
   begin
      if ti14 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit14.Text)))) then
      begin
         if gifpc14.visible = true then
         begin
            pnlpc14.Color := clRed;
            gifpc14.visible := false
         end
         else
         begin
            pnlpc14.Color := clBtnFace;
            gifpc14.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc14.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro15Timer(Sender: TObject);
begin
   ti15 := ti15 + StrToTime('00:00:01');
   lbltempomicro15.caption := TimeToStr(ti15);
   lbltotalmicro15.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti15),1,2))*60) + StrToInt(Copy(TimeToStr(ti15),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit15.Text <> '00:00' then
   begin
      if ti15 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit15.Text)))) then
      begin
         if gifpc15.visible = true then
         begin
            pnlpc15.Color := clRed;
            gifpc15.visible := false
         end
         else
         begin
            pnlpc15.Color := clBtnFace;
            gifpc15.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc15.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro16Timer(Sender: TObject);
begin
   ti16 := ti16 + StrToTime('00:00:01');
   lbltempomicro16.caption := TimeToStr(ti16);
   lbltotalmicro16.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti16),1,2))*60) + StrToInt(Copy(TimeToStr(ti16),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit16.Text <> '00:00' then
   begin
      if ti16 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit16.Text)))) then
      begin
         if gifpc16.visible = true then
         begin
            pnlpc16.Color := clRed;
            gifpc16.visible := false
         end
         else
         begin
            pnlpc16.Color := clBtnFace;
            gifpc16.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc16.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro17Timer(Sender: TObject);
begin
   ti17 := ti17 + StrToTime('00:00:01');
   lbltempomicro17.caption := TimeToStr(ti17);
   lbltotalmicro17.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti17),1,2))*60) + StrToInt(Copy(TimeToStr(ti17),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit17.Text <> '00:00' then
   begin
      if ti17 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit17.Text)))) then
      begin
         if gifpc17.visible = true then
         begin
            pnlpc17.Color := clRed;
            gifpc17.visible := false
         end
         else
         begin
            pnlpc17.Color := clBtnFace;
            gifpc17.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc17.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro18Timer(Sender: TObject);
begin
   ti18 := ti18 + StrToTime('00:00:01');
   lbltempomicro18.caption := TimeToStr(ti18);
   lbltotalmicro18.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti18),1,2))*60) + StrToInt(Copy(TimeToStr(ti18),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit18.Text <> '00:00' then
   begin
      if ti18 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit18.Text)))) then
      begin
         if gifpc18.visible = true then
         begin
            pnlpc18.Color := clRed;
            gifpc18.visible := false
         end
         else
         begin
            pnlpc18.Color := clBtnFace;
            gifpc18.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc18.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro19Timer(Sender: TObject);
begin
   ti19 := ti19 + StrToTime('00:00:01');
   lbltempomicro19.caption := TimeToStr(ti19);
   lbltotalmicro19.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti19),1,2))*60) + StrToInt(Copy(TimeToStr(ti19),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit19.Text <> '00:00' then
   begin
      if ti19 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit19.Text)))) then
      begin
         if gifpc19.visible = true then
         begin
            pnlpc19.Color := clRed;
            gifpc19.visible := false
         end
         else
         begin
            pnlpc19.Color := clBtnFace;
            gifpc19.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc19.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro20Timer(Sender: TObject);
begin
   ti20 := ti20 + StrToTime('00:00:01');
   lbltempomicro20.caption := TimeToStr(ti20);
   lbltotalmicro20.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti20),1,2))*60) + StrToInt(Copy(TimeToStr(ti20),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit20.Text <> '00:00' then
   begin
      if ti20 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit20.Text)))) then
      begin
         if gifpc20.visible = true then
         begin
            pnlpc20.Color := clRed;
            gifpc20.visible := false
         end
         else
         begin
            pnlpc20.Color := clBtnFace;
            gifpc20.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc20.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro21Timer(Sender: TObject);
begin
   ti21 := ti21 + StrToTime('00:00:01');
   lbltempomicro21.caption := TimeToStr(ti21);
   lbltotalmicro21.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti21),1,2))*60) + StrToInt(Copy(TimeToStr(ti21),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit21.Text <> '00:00' then
   begin
      if ti21 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit21.Text)))) then
      begin
         if gifpc21.visible = true then
         begin
            pnlpc21.Color := clRed;
            gifpc21.visible := false
         end
         else
         begin
            pnlpc21.Color := clBtnFace;
            gifpc21.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc21.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro22Timer(Sender: TObject);
begin
   ti22 := ti22 + StrToTime('00:00:01');
   lbltempomicro22.caption := TimeToStr(ti22);
   lbltotalmicro22.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti22),1,2))*60) + StrToInt(Copy(TimeToStr(ti22),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit22.Text <> '00:00' then
   begin
      if ti22 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit22.Text)))) then
      begin
         if gifpc22.visible = true then
         begin
            pnlpc22.Color := clRed;
            gifpc22.visible := false
         end
         else
         begin
            pnlpc22.Color := clBtnFace;
            gifpc22.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc22.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro23Timer(Sender: TObject);
begin
   ti23 := ti23 + StrToTime('00:00:01');
   lbltempomicro23.caption := TimeToStr(ti23);
   lbltotalmicro23.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti23),1,2))*60) + StrToInt(Copy(TimeToStr(ti23),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit23.Text <> '00:00' then
   begin
      if ti23 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit23.Text)))) then
      begin
         if gifpc23.visible = true then
         begin
            pnlpc23.Color := clRed;
            gifpc23.visible := false
         end
         else
         begin
            pnlpc23.Color := clBtnFace;
            gifpc23.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc23.visible := true;
   end;
end;

procedure TFrmgerenciamento.tiMicro24Timer(Sender: TObject);
begin
   ti24 := ti24 + StrToTime('00:00:01');
   lbltempomicro24.caption := TimeToStr(ti24);
   lbltotalmicro24.caption := FormatFloat('#,##0.00',((StrToInt(Copy(TimeToStr(ti24),1,2))*60) + StrToInt(Copy(TimeToStr(ti24),4,2)))*(StrToFloat(label28.caption)));
   if MaskEdit24.Text <> '00:00' then
   begin
      if ti24 >= StrToTime(FormatDateTime('hh:mm:ss', (StrToTime(MaskEdit24.Text)))) then
      begin
         if gifpc24.visible = true then
         begin
            pnlpc24.Color := clRed;
            gifpc24.visible := false
         end
         else
         begin
            pnlpc24.Color := clBtnFace;
            gifpc24.visible := true
         end;
         MessageBeep(16);
      end
      else
         gifpc24.visible := true;
   end;
end;

procedure TFrmgerenciamento.MsgClient11ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc11.visible := false;
   dxButton11.Visible := true;
   imgdeslig11.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient12ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc12.visible := false;
   dxButton12.Visible := true;
   imgdeslig12.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient13ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc13.visible := false;
   dxButton13.Visible := true;
   imgdeslig13.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient14ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc14.visible := false;
   dxButton14.Visible := true;
   imgdeslig14.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient15ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc15.visible := false;
   dxButton15.Visible := true;
   imgdeslig15.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient16ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc16.visible := false;
   dxButton16.Visible := true;
   imgdeslig16.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient17ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc17.visible := false;
   dxButton17.Visible := true;
   imgdeslig17.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient18ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc18.visible := false;
   dxButton18.Visible := true;
   imgdeslig18.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient19ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc19.visible := false;
   dxButton19.Visible := true;
   imgdeslig19.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient20ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc20.visible := false;
   dxButton20.Visible := true;
   imgdeslig20.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient21ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc21.visible := false;
   dxButton21.Visible := true;
   imgdeslig21.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient22ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc22.visible := false;
   dxButton22.Visible := true;
   imgdeslig22.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient23ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc23.visible := false;
   dxButton23.Visible := true;
   imgdeslig23.Visible := true;
end;

procedure TFrmgerenciamento.MsgClient24ConnectionFailed(Sender: TObject);
begin
   ShowMessage('Não foi possível conectar a estação Remota, verifique os seguintes:'+#13+#13+'**Número de IP incorreto...'+#13+'**Estação poder estar desligada ou'+#13+'**Programa de acesso ao cliente desabilitado');
   pnlpc24.visible := false;
   dxButton24.Visible := true;
   imgdeslig24.Visible := true;
end;

procedure TFrmgerenciamento.dxButton2Click(Sender: TObject);
begin
  with msgClient2 do begin
    Abort;
    Host:= valorip2;
    port:= 6969;
    if trimRight(MsgClient2.PostIt ('')) = 'OK' then
    begin
      pnlpc2.Visible := true;
      dxbutton2.Visible := false;
      lblpc2.caption := nomepc2;
      lblip2.caption := valorip2
    end;
  end;
end;


procedure TFrmgerenciamento.dxButton11Click(Sender: TObject);
begin
  with msgClient11 do begin
    Abort;
    Host:= valorip11;
    port:= 6969;
    if trimRight(MsgClient11.PostIt ('')) = 'OK' then
    begin
      pnlpc11.Visible := true;
      dxbutton11.Visible := false;
      lblpc11.caption := nomepc11;
      lblip11.caption := valorip11
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton12Click(Sender: TObject);
begin
  with msgClient12 do begin
    Abort;
    Host:= valorip12;
    port:= 6969;
    if trimRight(MsgClient12.PostIt ('')) = 'OK' then
    begin
      pnlpc12.Visible := true;
      dxbutton12.Visible := false;
      lblpc12.caption := nomepc12;
      lblip12.caption := valorip12
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton14Click(Sender: TObject);
begin
  with msgClient14 do begin
    Abort;
    Host:= valorip14;
    port:= 6969;
    if trimRight(MsgClient14.PostIt ('')) = 'OK' then
    begin
      pnlpc14.Visible := true;
      dxbutton14.Visible := false;
      lblpc14.caption := nomepc14;
      lblip14.caption := valorip14
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton23Click(Sender: TObject);
begin
  with msgClient23 do begin
    Abort;
    Host:= valorip23;
    port:= 6969;
    if trimRight(MsgClient23.PostIt ('')) = 'OK' then
    begin
      pnlpc23.Visible := true;
      dxbutton23.Visible := false;
      lblpc23.caption := nomepc23;
      lblip23.caption := valorip23
    end;
  end;
end;

procedure TFrmgerenciamento.dxButton24Click(Sender: TObject);
begin
  with msgClient24 do begin
    Abort;
    Host:= valorip24;
    port:= 6969;
    if trimRight(MsgClient24.PostIt ('')) = 'OK' then
    begin
      pnlpc24.Visible := true;
      dxbutton24.Visible := false;
      lblpc24.caption := nomepc24;
      lblip24.caption := valorip24
    end;
  end;
end;

procedure TFrmgerenciamento.setabaixo10Click(Sender: TObject);
begin
   detais10.Visible := true;
   maskedit10.SetFocus;
   setabaixo10.visible := false;
end;

procedure TFrmgerenciamento.setabaixo11Click(Sender: TObject);
begin
   detais11.Visible := true;
   maskedit11.SetFocus;
   setabaixo11.visible := false;
end;

procedure TFrmgerenciamento.setabaixo12Click(Sender: TObject);
begin
   detais12.Visible := true;
   maskedit12.SetFocus;
   setabaixo12.visible := false;
end;

procedure TFrmgerenciamento.setabaixo13Click(Sender: TObject);
begin
   detais13.Visible := true;
   maskedit13.SetFocus;
   setabaixo13.visible := false;
end;

procedure TFrmgerenciamento.setabaixo14Click(Sender: TObject);
begin
   detais14.Visible := true;
   maskedit14.SetFocus;
   setabaixo14.visible := false;
end;

procedure TFrmgerenciamento.setabaixo15Click(Sender: TObject);
begin
   detais15.Visible := true;
   maskedit15.SetFocus;
   setabaixo15.visible := false;
end;

procedure TFrmgerenciamento.setabaixo16Click(Sender: TObject);
begin
   detais16.Visible := true;
   maskedit16.SetFocus;
   setabaixo16.visible := false;
end;

procedure TFrmgerenciamento.setabaixo17Click(Sender: TObject);
begin
   detais17.Visible := true;
   maskedit17.SetFocus;
   setabaixo17.visible := false;
end;

procedure TFrmgerenciamento.setabaixo18Click(Sender: TObject);
begin
   detais18.Visible := true;
   maskedit18.SetFocus;
   setabaixo18.visible := false;
end;

procedure TFrmgerenciamento.setabaixo19Click(Sender: TObject);
begin
   detais19.Visible := true;
   maskedit19.SetFocus;
   setabaixo19.visible := false;
end;

procedure TFrmgerenciamento.setabaixo2Click(Sender: TObject);
begin
   detais2.Visible := true;
   maskedit2.SetFocus;
   setabaixo2.visible := false;
end;

procedure TFrmgerenciamento.setabaixo20Click(Sender: TObject);
begin
   detais20.Visible := true;
   maskedit20.SetFocus;
   setabaixo20.visible := false;
end;

procedure TFrmgerenciamento.setabaixo21Click(Sender: TObject);
begin
   detais21.Visible := true;
   maskedit21.SetFocus;
   setabaixo21.visible := false;
end;

procedure TFrmgerenciamento.setabaixo22Click(Sender: TObject);
begin
   detais22.Visible := true;
   maskedit22.SetFocus;
   setabaixo22.visible := false;
end;

procedure TFrmgerenciamento.setabaixo23Click(Sender: TObject);
begin
   detais23.Visible := true;
   maskedit23.SetFocus;
   setabaixo23.visible := false;
end;

procedure TFrmgerenciamento.setabaixo24Click(Sender: TObject);
begin
   detais24.Visible := true;
   maskedit24.SetFocus;
   setabaixo24.visible := false;
end;

procedure TFrmgerenciamento.setacima10Click(Sender: TObject);
begin
   detais10.visible := false;
   setabaixo10.visible := true;
end;

procedure TFrmgerenciamento.setacima11Click(Sender: TObject);
begin
   detais11.visible := false;
   setabaixo11.visible := true;
end;

procedure TFrmgerenciamento.setacima12Click(Sender: TObject);
begin
   detais12.visible := false;
   setabaixo12.visible := true;
end;

procedure TFrmgerenciamento.setacima13Click(Sender: TObject);
begin
   detais13.visible := false;
   setabaixo13.visible := true;
end;

procedure TFrmgerenciamento.setacima14Click(Sender: TObject);
begin
   detais14.visible := false;
   setabaixo14.visible := true;
end;

procedure TFrmgerenciamento.setacima15Click(Sender: TObject);
begin
   detais15.visible := false;
   setabaixo15.visible := true;
end;

procedure TFrmgerenciamento.setacima16Click(Sender: TObject);
begin
   detais16.visible := false;
   setabaixo16.visible := true;
end;

procedure TFrmgerenciamento.setacima17Click(Sender: TObject);
begin
   detais17.visible := false;
   setabaixo17.visible := true;
end;

procedure TFrmgerenciamento.setacima18Click(Sender: TObject);
begin
   detais18.visible := false;
   setabaixo18.visible := true;
end;

procedure TFrmgerenciamento.setacima19Click(Sender: TObject);
begin
   detais19.visible := false;
   setabaixo19.visible := true;
end;

procedure TFrmgerenciamento.setacima2Click(Sender: TObject);
begin
   detais2.visible := false;
   setabaixo2.visible := true;
end;

procedure TFrmgerenciamento.setacima20Click(Sender: TObject);
begin
   detais20.visible := false;
   setabaixo20.visible := true;
end;

procedure TFrmgerenciamento.setacima21Click(Sender: TObject);
begin
   detais21.visible := false;
   setabaixo21.visible := true;
end;

procedure TFrmgerenciamento.setacima22Click(Sender: TObject);
begin
   detais22.visible := false;
   setabaixo22.visible := true;
end;

procedure TFrmgerenciamento.setacima23Click(Sender: TObject);
begin
   detais23.visible := false;
   setabaixo23.visible := true;
end;

procedure TFrmgerenciamento.setacima24Click(Sender: TObject);
begin
   detais24.visible := false;
   setabaixo24.visible := true;
end;

procedure TFrmgerenciamento.RxLookupEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod1.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod1.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit1.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText1.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText1.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit1.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit1.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod2.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod2.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit2.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText2.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText2.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit2.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit2.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit3KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod3.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod3.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit3.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText3.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText3.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit3.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit3.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit4KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod4.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod4.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit4.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText4.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText4.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit4.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit4.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit5KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod5.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod5.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit5.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText5.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText5.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit5.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit5.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit6KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod6.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod6.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit6.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText6.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText6.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit6.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit6.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit7KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod7.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod7.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit7.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText7.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText7.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit7.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit7.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit8KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod8.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod8.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit8.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText8.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText8.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit8.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit8.Text := '';
end;

end;

procedure TFrmgerenciamento.RxLookupEdit11KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod11.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod11.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit11.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText11.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText11.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit11.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit11.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit12KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod12.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod12.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit12.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText12.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText12.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit12.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit11.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit13KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod13.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod13.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit13.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText13.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText13.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit13.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit13.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit14KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod14.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod14.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit14.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText14.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText14.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit14.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit14.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit15KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod15.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod15.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit15.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText15.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText15.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit15.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit15.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit16KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod16.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod16.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit16.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText16.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText16.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit16.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit16.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit17KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod17.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod17.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit17.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText17.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText17.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit17.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit17.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit18KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod18.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod18.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit18.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText18.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText18.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit18.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit18.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit19KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod19.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod19.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit19.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText19.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText19.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit19.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit19.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit20KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod20.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod20.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit20.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText20.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText20.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit20.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit20.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit21KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod21.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod21.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit21.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText21.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText21.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit21.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit21.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit22KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod22.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod22.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit22.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText22.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText22.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit22.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit22.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit23KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod23.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod23.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit23.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText23.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText23.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit23.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit23.Text := '';
   end;
end;

procedure TFrmgerenciamento.RxLookupEdit24KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if Key = VK_Return then
   begin
      DMEscola.Qsuport.open;
      DMEscola.Qsuport.Append;
      DMEscola.Qsuport.Edit;
      if lblcod24.caption <> '0' then
         DMEscola.QsuportCod_cli.Value := StrToInt(lblcod24.caption)
      else
         DMEscola.QsuportCod_cli.Value := 0;
      DMEscola.QsuportProduto.Value := RxLookUpEdit24.Text;
      DMEscola.QsuportQuantidade.Value := 1;
      DMEscola.QsuportPreco_unit.Value := DBText24.Field.AsCurrency;
      DMEscola.QsuportPreco_total.Value := DBText24.Field.AsCurrency;
      DMEscola.Qsuport.Post;
      DMEscola.Qsuport.close;
//================================= SUBTRAIR DO ESTOQUE...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.SQL.Add('Where descricao = :prod');
      DMEScola.Qprodutos.ParamByName('prod').AsString := RxLookupEdit24.LookupValue;
      DMEscola.Qprodutos.open;
      DMEscola.Qprodutos.Edit;
      if (DMEscola.QprodutosServico.value = true) then
      begin
         DMEscola.QprodutosEstoque_Atual.Value := DMEscola.QprodutosEstoque_Atual.Value - 1;
         DMEscola.Qprodutos.Post
      end;
//================================ ATUALIZA A LISTA DE PRODUTOS...
      DMEscola.Qprodutos.close;
      DMEscola.Qprodutos.SQL.Clear;
      DMEscola.Qprodutos.SQL.Add('Select * From Produtos');
      DMEscola.Qprodutos.open;
//================================== FIM...
      RxLookUpEdit24.Text := '';
   end;
end;

procedure TFrmgerenciamento.setabaixo3Click(Sender: TObject);
begin
   detais3.Visible := true;
   maskedit3.SetFocus;
   setabaixo3.visible := false;
end;

procedure TFrmgerenciamento.setabaixo4Click(Sender: TObject);
begin
   detais4.Visible := true;
   maskedit4.SetFocus;
   setabaixo4.visible := false;
end;

procedure TFrmgerenciamento.setabaixo5Click(Sender: TObject);
begin
   detais5.Visible := true;
   maskedit5.SetFocus;
   setabaixo5.visible := false;
end;

procedure TFrmgerenciamento.setabaixo6Click(Sender: TObject);
begin
   detais6.Visible := true;
   maskedit6.SetFocus;
   setabaixo6.visible := false;
end;

procedure TFrmgerenciamento.setabaixo7Click(Sender: TObject);
begin
   detais7.Visible := true;
   maskedit7.SetFocus;
   setabaixo7.visible := false;
end;

procedure TFrmgerenciamento.setabaixo8Click(Sender: TObject);
begin
   detais8.Visible := true;
   maskedit8.SetFocus;
   setabaixo8.visible := false;
end;

procedure TFrmgerenciamento.setabaixo9Click(Sender: TObject);
begin
   detais9.Visible := true;
   maskedit9.SetFocus;
   setabaixo9.visible := false;
end;

procedure TFrmgerenciamento.framessage1tfXPButton1Click(Sender: TObject);
begin
   framessage1.edit1.Text := '';
   framessage1.Visible := false;
end;

procedure TFrmgerenciamento.framessage1dxButton1Click(Sender: TObject);
begin
   AdicionarParametro (cMensagem, 0);
   AdicionarParametro (framessage1.Edit1.Text, 1);
   if chamarmessage = 'pop1' then
      EnviarComando;
   if chamarmessage = 'pop2' then
      EnviarComando2;
   if chamarmessage = 'pop3' then
      EnviarComando3;
   if chamarmessage = 'pop4' then
      EnviarComando4;
   if chamarmessage = 'pop5' then
      EnviarComando5;
   if chamarmessage = 'pop6' then
      EnviarComando6;
   if chamarmessage = 'pop7' then
      EnviarComando7;
   if chamarmessage = 'pop8' then
      EnviarComando8;
   if chamarmessage = 'pop9' then
      EnviarComando9;
   if chamarmessage = 'pop10' then
      EnviarComando10;
   if chamarmessage = 'pop11' then
      EnviarComando11;
   if chamarmessage = 'pop12' then
      EnviarComando12;
   if chamarmessage = 'pop13' then
      EnviarComando13;
   if chamarmessage = 'pop14' then
      EnviarComando14;
   if chamarmessage = 'pop15' then
      EnviarComando15;
   if chamarmessage = 'pop16' then
      EnviarComando16;
   if chamarmessage = 'pop17' then
      EnviarComando17;
   if chamarmessage = 'pop18' then
      EnviarComando18;
   if chamarmessage = 'pop19' then
      EnviarComando19;
   if chamarmessage = 'pop20' then
      EnviarComando20;
   if chamarmessage = 'pop21' then
      EnviarComando21;
   if chamarmessage = 'pop22' then
      EnviarComando22;
   if chamarmessage = 'pop23' then
      EnviarComando23;
   if chamarmessage = 'pop24' then
      EnviarComando24;
   framessage1.edit1.text := '';

end;

procedure TFrmgerenciamento.setacima3Click(Sender: TObject);
begin
   detais3.visible := false;
   setabaixo3.visible := true;
end;

procedure TFrmgerenciamento.setacima4Click(Sender: TObject);
begin
   detais4.visible := false;
   setabaixo4.visible := true;
end;

procedure TFrmgerenciamento.setacima5Click(Sender: TObject);
begin
   detais5.visible := false;
   setabaixo5.visible := true;
end;

procedure TFrmgerenciamento.setacima6Click(Sender: TObject);
begin
   detais6.visible := false;
   setabaixo6.visible := true;
end;

procedure TFrmgerenciamento.setacima7Click(Sender: TObject);
begin
   detais7.visible := false;
   setabaixo7.visible := true;
end;

procedure TFrmgerenciamento.setacima8Click(Sender: TObject);
begin
   detais8.visible := false;
   setabaixo8.visible := true;
end;

procedure TFrmgerenciamento.setacima9Click(Sender: TObject);
begin
   detais9.visible := false;
   setabaixo9.visible := true;
end;

procedure TFrmgerenciamento.MaskEdit1Change(Sender: TObject);
begin
   timicro1.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit10Change(Sender: TObject);
begin
   timicro10.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit11Change(Sender: TObject);
begin
   timicro11.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit12Change(Sender: TObject);
begin
   timicro12.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit13Change(Sender: TObject);
begin
   timicro13.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit14Change(Sender: TObject);
begin
   timicro14.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit15Change(Sender: TObject);
begin
   timicro15.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit16Change(Sender: TObject);
begin
   timicro16.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit17Change(Sender: TObject);
begin
   timicro17.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit18Change(Sender: TObject);
begin
   timicro18.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit19Change(Sender: TObject);
begin
   timicro19.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit2Change(Sender: TObject);
begin
   timicro2.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit20Change(Sender: TObject);
begin
   timicro20.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit21Change(Sender: TObject);
begin
   timicro21.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit22Change(Sender: TObject);
begin
   timicro22.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit23Change(Sender: TObject);
begin
   timicro23.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit24Change(Sender: TObject);
begin
   timicro24.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit3Change(Sender: TObject);
begin
   timicro3.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit4Change(Sender: TObject);
begin
   timicro4.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit5Change(Sender: TObject);
begin
   timicro5.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit6Change(Sender: TObject);
begin
   timicro6.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit7Change(Sender: TObject);
begin
   timicro7.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit8Change(Sender: TObject);
begin
   timicro8.Enabled := false;
end;

procedure TFrmgerenciamento.MaskEdit9Change(Sender: TObject);
begin
   timicro9.Enabled := false;
end;

procedure TFrmgerenciamento.alt1Click(Sender: TObject);
begin
   timicro1.Enabled := True;
end;

procedure TFrmgerenciamento.alt2Click(Sender: TObject);
begin
   timicro2.Enabled := True;
end;

procedure TFrmgerenciamento.alt3Click(Sender: TObject);
begin
   timicro3.Enabled := True;
end;

procedure TFrmgerenciamento.alt4Click(Sender: TObject);
begin
   timicro4.Enabled := True;
end;

procedure TFrmgerenciamento.dxButton28Click(Sender: TObject);
begin
   timicro5.Enabled := True;
end;

procedure TFrmgerenciamento.alt6Click(Sender: TObject);
begin
   timicro6.Enabled := True;
end;

procedure TFrmgerenciamento.alt7Click(Sender: TObject);
begin
   timicro7.Enabled := True;
end;

procedure TFrmgerenciamento.alt8Click(Sender: TObject);
begin
   timicro8.Enabled := True;
end;

procedure TFrmgerenciamento.alt9Click(Sender: TObject);
begin
   timicro9.Enabled := True;
end;

procedure TFrmgerenciamento.alt10Click(Sender: TObject);
begin
   timicro10.Enabled := True;
end;

procedure TFrmgerenciamento.alt11Click(Sender: TObject);
begin
   timicro11.Enabled := True;
end;

procedure TFrmgerenciamento.alt12Click(Sender: TObject);
begin
   timicro12.Enabled := True;
end;

procedure TFrmgerenciamento.alt13Click(Sender: TObject);
begin
   timicro13.Enabled := True;
end;

procedure TFrmgerenciamento.alt14Click(Sender: TObject);
begin
   timicro14.Enabled := True;
end;

procedure TFrmgerenciamento.alt15Click(Sender: TObject);
begin
   timicro15.Enabled := True;
end;

procedure TFrmgerenciamento.alt16Click(Sender: TObject);
begin
   timicro16.Enabled := True;
end;

procedure TFrmgerenciamento.alt17Click(Sender: TObject);
begin
   timicro17.Enabled := True;
end;

procedure TFrmgerenciamento.alt18Click(Sender: TObject);
begin
   timicro18.Enabled := True;
end;

procedure TFrmgerenciamento.alt19Click(Sender: TObject);
begin
   timicro19.Enabled := True;
end;

procedure TFrmgerenciamento.alt20Click(Sender: TObject);
begin
   timicro20.Enabled := True;
end;

procedure TFrmgerenciamento.alt21Click(Sender: TObject);
begin
   timicro21.Enabled := True;
end;

procedure TFrmgerenciamento.alt22Click(Sender: TObject);
begin
   timicro22.Enabled := True;
end;

procedure TFrmgerenciamento.alt23Click(Sender: TObject);
begin
   timicro23.Enabled := True;
end;

procedure TFrmgerenciamento.alt24Click(Sender: TObject);
begin
   timicro24.Enabled := True;
end;

procedure TFrmgerenciamento.dxButton25Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando;
   pnlpc1.Visible := true;
   r1 := 'restore';
   dxbutton25.visible := false;
   dxbutton1.visible := false;
   RxSwitch1.StateOn := true;
   r1 := '';
end;

procedure TFrmgerenciamento.dxButton26Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando2;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando2;
   pnlpc2.Visible := true;
   r2 := 'restore';
   dxbutton26.visible := false;
   dxbutton2.visible := false;
   RxSwitch2.StateOn := true;
   r2 := '';
end;

procedure TFrmgerenciamento.dxButton27Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando3;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando3;
   pnlpc3.Visible := true;
   r3 := 'restore';
   dxbutton27.visible := false;
   dxbutton3.visible := false;
   RxSwitch3.StateOn := true;
   r3 := '';
end;

procedure TFrmgerenciamento.dxButton29Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando4;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando4;
   pnlpc4.Visible := true;
   r4 := 'restore';
   dxbutton29.visible := false;
   dxbutton4.visible := false;
   RxSwitch4.StateOn := true;
   r4 := '';
end;

procedure TFrmgerenciamento.dxButton30Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando5;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando5;
   pnlpc5.Visible := true;
   r5 := 'restore';
   dxbutton30.visible := false;
   dxbutton5.visible := false;
   RxSwitch5.StateOn := true;
   r5 := '';
end;

procedure TFrmgerenciamento.dxButton31Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando6;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando6;
   pnlpc6.Visible := true;
   r6 := 'restore';
   dxbutton31.visible := false;
   dxbutton6.visible := false;
   RxSwitch6.StateOn := true;
   r6 := '';
end;

procedure TFrmgerenciamento.dxButton32Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando7;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando7;
   pnlpc7.Visible := true;
   r7 := 'restore';
   dxbutton32.visible := false;
   dxbutton7.visible := false;
   RxSwitch7.StateOn := true;
   r7 := '';
end;

procedure TFrmgerenciamento.dxButton33Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando8;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando8;
   pnlpc8.Visible := true;
   r8 := 'restore';
   dxbutton33.visible := false;
   dxbutton8.visible := false;
   RxSwitch8.StateOn := true;
   r8 := '';
end;

procedure TFrmgerenciamento.dxButton34Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando9;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando9;
   pnlpc9.Visible := true;
   r9 := 'restore';
   dxbutton34.visible := false;
   dxbutton9.visible := false;
   RxSwitch9.StateOn := true;
   r9 := '';
end;

procedure TFrmgerenciamento.dxButton35Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando10;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando10;
   pnlpc10.Visible := true;
   r10 := 'restore';
   dxbutton35.visible := false;
   dxbutton10.visible := false;
   RxSwitch10.StateOn := true;
   r10 := '';
end;

procedure TFrmgerenciamento.dxButton36Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando11;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando11;
   pnlpc11.Visible := true;
   r11 := 'restore';
   dxbutton36.visible := false;
   dxbutton11.visible := false;
   RxSwitch11.StateOn := true;
   r11 := '';
end;

procedure TFrmgerenciamento.dxButton37Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando12;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando12;
   pnlpc12.Visible := true;
   r12 := 'restore';
   dxbutton37.visible := false;
   dxbutton12.visible := false;
   RxSwitch12.StateOn := true;
   r12 := '';
end;

procedure TFrmgerenciamento.dxButton38Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando13;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando13;
   pnlpc13.Visible := true;
   r13 := 'restore';
   dxbutton38.visible := false;
   dxbutton13.visible := false;
   RxSwitch13.StateOn := true;
   r13 := '';
end;

procedure TFrmgerenciamento.dxButton39Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando14;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando14;
   pnlpc14.Visible := true;
   r14 := 'restore';
   dxbutton39.visible := false;
   dxbutton14.visible := false;
   RxSwitch14.StateOn := true;
   r14 := '';
end;

procedure TFrmgerenciamento.dxButton40Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando15;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando15;
   pnlpc15.Visible := true;
   r15 := 'restore';
   dxbutton40.visible := false;
   dxbutton15.visible := false;
   RxSwitch15.StateOn := true;
   r15 := '';
end;

procedure TFrmgerenciamento.dxButton41Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando16;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando16;
   pnlpc16.Visible := true;
   r16 := 'restore';
   dxbutton41.visible := false;
   dxbutton16.visible := false;
   RxSwitch16.StateOn := true;
   r16 := '';
end;

procedure TFrmgerenciamento.dxButton42Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando17;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando17;
   pnlpc17.Visible := true;
   r17 := 'restore';
   dxbutton42.visible := false;
   dxbutton17.visible := false;
   RxSwitch17.StateOn := true;
   r17 := '';
end;

procedure TFrmgerenciamento.dxButton43Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando18;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando18;
   pnlpc18.Visible := true;
   r18 := 'restore';
   dxbutton43.visible := false;
   dxbutton18.visible := false;
   RxSwitch18.StateOn := true;
   r18 := '';
end;

procedure TFrmgerenciamento.dxButton44Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando19;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando19;
   pnlpc19.Visible := true;
   r19 := 'restore';
   dxbutton44.visible := false;
   dxbutton19.visible := false;
   RxSwitch19.StateOn := true;
   r19 := '';
end;

procedure TFrmgerenciamento.dxButton45Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando20;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando20;
   pnlpc20.Visible := true;
   r20 := 'restore';
   dxbutton45.visible := false;
   dxbutton20.visible := false;
   RxSwitch20.StateOn := true;
   r20 := '';
end;

procedure TFrmgerenciamento.dxButton46Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando21;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando21;
   pnlpc21.Visible := true;
   r21 := 'restore';
   dxbutton46.visible := false;
   dxbutton21.visible := false;
   RxSwitch21.StateOn := true;
   r21 := '';
end;

procedure TFrmgerenciamento.dxButton47Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando22;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando22;
   pnlpc22.Visible := true;
   r22 := 'restore';
   dxbutton47.visible := false;
   dxbutton22.visible := false;
   RxSwitch22.StateOn := true;
   r22 := '';
end;

procedure TFrmgerenciamento.dxButton48Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando23;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando23;
   pnlpc23.Visible := true;
   r23 := 'restore';
   dxbutton48.visible := false;
   dxbutton23.visible := false;
   RxSwitch23.StateOn := true;
   r23 := '';
end;

procedure TFrmgerenciamento.dxButton49Click(Sender: TObject);
begin
   AdicionarParametro (cvai2, 0);
   Enviarcomando24;
   sleep(3000);
   AdicionarParametro (cvai, 0);
   Enviarcomando24;
   pnlpc24.Visible := true;
   r24 := 'restore';
   dxbutton49.visible := false;
   dxbutton24.visible := false;
   RxSwitch24.StateOn := true;
   r24 := '';
end;

procedure TFrmgerenciamento.DesligaroComputador1Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando;
end;

procedure TFrmgerenciamento.DesligaroComputador2Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando2;
end;

procedure TFrmgerenciamento.DesligaroComputador3Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando3;
end;

procedure TFrmgerenciamento.DesligaroComputador4Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando4;
end;

procedure TFrmgerenciamento.DesligaroComputador5Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando5;
end;

procedure TFrmgerenciamento.DesligaroComputador6Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando6;
end;

procedure TFrmgerenciamento.DesligaroComputador7Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando7;
end;

procedure TFrmgerenciamento.DesligaroComputador8Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando8;
end;

procedure TFrmgerenciamento.DesligaroComputador9Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando9;
end;

procedure TFrmgerenciamento.DesligaroComputador10Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando10;
end;

procedure TFrmgerenciamento.DesligaroComputador11Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando11;
end;

procedure TFrmgerenciamento.DesligaroComputador12Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando12;
end;

procedure TFrmgerenciamento.DesligaroComputador13Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando13;
end;

procedure TFrmgerenciamento.DesligaroComputador14Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando14;
end;

procedure TFrmgerenciamento.DesligaroComputador15Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando15;
end;

procedure TFrmgerenciamento.DesligaroComputador16Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando16;
end;

procedure TFrmgerenciamento.DesligaroComputador17Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando17;
end;

procedure TFrmgerenciamento.DesligaroComputador18Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando18;
end;

procedure TFrmgerenciamento.DesligaroComputador19Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando19;
end;

procedure TFrmgerenciamento.DesligaroComputador20Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando20;
end;

procedure TFrmgerenciamento.DesligaroComputador21Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando21;
end;

procedure TFrmgerenciamento.DesligaroComputador22Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando22;
end;

procedure TFrmgerenciamento.DesligaroComputador23Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando23;
end;

procedure TFrmgerenciamento.DesligaroComputador24Click(Sender: TObject);
begin
  AdicionarParametro (cSairWindows, 0);
  EnviarComando24;
end;

procedure TFrmgerenciamento.Desconectar1Click(Sender: TObject);
begin
   rxof1 := 'sim';
   rxswitch1.StateOn := false;
   pnlpc1.Visible := false;
   dxbutton1.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar24Click(Sender: TObject);
begin
   rxof2 := 'sim';
   rxswitch2.StateOn := false;
   pnlpc2.Visible := false;
   dxbutton2.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar23Click(Sender: TObject);
begin
   rxof3 := 'sim';
   rxswitch3.StateOn := false;
   pnlpc3.Visible := false;
   dxbutton3.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar22Click(Sender: TObject);
begin
   rxof4 := 'sim';
   rxswitch4.StateOn := false;
   pnlpc4.Visible := false;
   dxbutton4.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar21Click(Sender: TObject);
begin
   rxof5 := 'sim';
   rxswitch5.StateOn := false;
   pnlpc5.Visible := false;
   dxbutton5.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar20Click(Sender: TObject);
begin
   rxof6 := 'sim';
   rxswitch6.StateOn := false;
   pnlpc6.Visible := false;
   dxbutton6.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar19Click(Sender: TObject);
begin
   rxof7 := 'sim';
   rxswitch7.StateOn := false;
   pnlpc7.Visible := false;
   dxbutton7.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar18Click(Sender: TObject);
begin
   rxof8 := 'sim';
   rxswitch8.StateOn := false;
   pnlpc8.Visible := false;
   dxbutton8.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar17Click(Sender: TObject);
begin
   rxof9 := 'sim';
   rxswitch9.StateOn := false;
   pnlpc9.Visible := false;
   dxbutton9.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar16Click(Sender: TObject);
begin
   rxof10 := 'sim';
   rxswitch10.StateOn := false;
   pnlpc10.Visible := false;
   dxbutton10.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar15Click(Sender: TObject);
begin
   rxof11 := 'sim';
   rxswitch11.StateOn := false;
   pnlpc11.Visible := false;
   dxbutton11.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar14Click(Sender: TObject);
begin
   rxof12 := 'sim';
   rxswitch12.StateOn := false;
   pnlpc12.Visible := false;
   dxbutton12.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar2Click(Sender: TObject);
begin
   rxof13 := 'sim';
   rxswitch13.StateOn := false;
   pnlpc13.Visible := false;
   dxbutton13.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar3Click(Sender: TObject);
begin
   rxof14 := 'sim';
   rxswitch14.StateOn := false;
   pnlpc14.Visible := false;
   dxbutton14.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar4Click(Sender: TObject);
begin
   rxof15 := 'sim';
   rxswitch15.StateOn := false;
   pnlpc15.Visible := false;
   dxbutton15.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar5Click(Sender: TObject);
begin
   rxof16 := 'sim';
   rxswitch16.StateOn := false;
   pnlpc16.Visible := false;
   dxbutton16.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar6Click(Sender: TObject);
begin
   rxof17 := 'sim';
   rxswitch17.StateOn := false;
   pnlpc17.Visible := false;
   dxbutton17.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar7Click(Sender: TObject);
begin
   rxof18 := 'sim';
   rxswitch18.StateOn := false;
   pnlpc18.Visible := false;
   dxbutton18.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar8Click(Sender: TObject);
begin
   rxof19 := 'sim';
   rxswitch19.StateOn := false;
   pnlpc19.Visible := false;
   dxbutton19.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar9Click(Sender: TObject);
begin
   rxof20 := 'sim';
   rxswitch20.StateOn := false;
   pnlpc20.Visible := false;
   dxbutton20.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar10Click(Sender: TObject);
begin
   rxof21 := 'sim';
   rxswitch21.StateOn := false;
   pnlpc21.Visible := false;
   dxbutton21.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar11Click(Sender: TObject);
begin
   rxof22 := 'sim';
   rxswitch22.StateOn := false;
   pnlpc22.Visible := false;
   dxbutton22.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar12Click(Sender: TObject);
begin
   rxof23 := 'sim';
   rxswitch23.StateOn := false;
   pnlpc23.Visible := false;
   dxbutton23.Visible := true;
end;

procedure TFrmgerenciamento.Desconectar13Click(Sender: TObject);
begin
   rxof24 := 'sim';
   rxswitch24.StateOn := false;
   pnlpc24.Visible := false;
   dxbutton24.Visible := true;
end;

procedure TFrmgerenciamento.Timer1Timer(Sender: TObject);
var
   x, valorbusca : string;
begin
  lblhora.caption := FormatDateTime('hh:mm',Time);
  Case dayofweek(Date) of
    1 :  x := 'Domingo';
    2 :  x := 'Segunda-Feira';
    3 :  x := 'Terça-Feira';
    4 :  x := 'Quarta-Feira';
    5 :  x := 'Quinta-Feira';
    6 :  x := 'Sexta-Feira';
    7 :  x := 'Sábado';
  end;
  DMEscola.Qtestetarifa.Close;
  DMEscola.Qtestetarifa.SQL.Clear;
  DMEscola.Qtestetarifa.Sql.Add ('Select * From Tarifas');
  DMEscola.Qtestetarifa.Sql.Add('WHERE ');
  DMEscola.Qtestetarifa.Sql.Add('(DiaSemana = :pdiasemana) and');
  DMEscola.Qtestetarifa.Sql.Add('(Horaini < :phora) and');
  DMEscola.Qtestetarifa.Sql.Add('(Horafim > :phoras)');
  DMEscola.Qtestetarifa.ParamByName('pdiasemana').AsString := x;
  DMEscola.Qtestetarifa.ParamByName('phora').AsTime := Time;
  DMEscola.Qtestetarifa.ParamByName('phoras').AsTime := Time;
  DMEscola.Qtestetarifa.open;
  valorBusca := DMEscola.QtestetarifaCobrar.Text;
  if valorBusca  <> '' then
     label28.caption := valorBusca;

end;

end.
